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UNIT_IN 
DLESALONPGD_2 
DLESALONONPAGED 
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DECLARATIONS 

DRIVER PROLOGUE TABLE 

th 3 DISPATCH TABLE 

43 ION DECISION TABLE 

PLE STARTIO pert 1/0 operation 
DLESFDT_ACCESS IOS_ACCESS FOT processing 
DLESACCESS IOS“ACCESS “'startio’’ processing 
Get ABD cover tet rs 

DLESFDT_DEACCESS= IO$_DEACCESS FOT processing 
DLESDEACCESS 1O$"DEACCESS ‘'startio’’ processing 
DEALLOC_DwB Deallocate DWB 

sg hs Mle Restore ‘‘access’’ quota 
DLESFDT_SETMODE = Process 10$ SETMODE request 
SETMODE ACPBUF Build SETMOBE ACP complex buffer 
GET_STATUS Refresh DLE status flags for 10S8 
DLESFDT_ CONTROL = IO$_ACPCONTROL FDT processing 
DLESCONTROL IOS_ACPCONTROL ‘‘startio’’ processing 
DLESC Cancel 1/0 routine 

CANCEL_ALL Cancel all outstanding 1/0 
DLESLPB_DOWN The circuit has gone away 


FDOT for IO0$_READxBLK requests 

FDOT for IO0$_WRITExBLK requests 

DLE FDT Read/Write processing 

Get Non-paged Pool Quota 

Send messege over direct-accessed circuit 
Transmit 170 post-processing 
Initialize datalink receive IRP 
Issue datalink receive request 
Receive a message from datalink 
Complete User Receive IRP 

Unit initialization 

Allocate and zero from eyeeen pool 
Allocate from system poo 
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: FACILITY: DECnet-VAX 

ABSTRACT: 

This driver implenents the DLE facility in DECnet-VAX which 
: allows preerens direct access to a DECnet circuit. This is 
; primarily used to implement MOP support. 
ENVIRONMENT: 

MODE = KERNEL 

AUTHOR: 

: Tim Halvorsen, December 1982 
: MODIFIED BY: 

; V03-005 LMP0275 L. Mark Pilan 12-Jul-1984 19:48 
3 Initialize the ACL info in he "ORB to be a null descriptor 
3 at nether than an empty queue. This avoids the overhead 
3 of locki ng and unlocking the ACL mutex, only to find out 

5 that the ACL was ter 

; v03-004 LMPO2 Pilan 30-Mar-1984 11:36 
; change uc pease “ownbic to KORBSC MOUNER and UCBSW_VPROT to 


v003 RNGO003 Rod Gamache 28-Jun-1983 
Remove internal definition for IRPSQ_ STATION. 
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TMHOOO2 Tim Halvorsen 08-May-1983 
Fix case where user receive was not being posted if the 
LPD was shutdown while a DLE receive was outstanding. 


TMHOOO01 Tim Halvorsen 20-Apr=1985 

Fix cancel routine to not abort pending user I/0, but to 
instead wait for the datalink driver to return the datalink 
IRPs before aborting user requests. 

Add bugcheck which checks for the condition of veceryene a 
eccstee ree the datalink without any pending user receive 
ou nding. 

Insert DUBS onto wy DWB List in order by NETACP channel 
number, so that if can be used as the collating sequence. 
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SVECDEF 


: Network definitions 


SOWBDEF 3 DLE window control block 
SNE TSYMDEF 3; Get NETSC_IPL oe ol 
SRCBDEF ; Get RCBSW_MCOUNT symbol 


: Definitions that follow the standard UCB fields 


Start of UCB definitions 
Position at end of standard UCB 
Global’ DWB Listhead 


Next unique identifier to allocate 
Size of our UCB 


SDEFINI UCB 
= UCBSC_LENGTH 
EF  UCB$Q_DWB_LIST .BLKQ 1 
EF  UCBSWINEXT ID <BLKW 1 
EF UCBSC"ND_LENGTH 


SDEFEND UCB 
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00000090 


$D 
$D 
$D 


; Overlays of IRP 
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SDEFINI IRP 
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= IRPSL_ARB + 4 
$pEF  IRPSC_STDLEN ; End of standard IRP 


SDEFEND IRP 
: Define maximum allowable Length of a received message for datalinks 
; which do direct 1/0 on receives. 


00000800 MAX_DIR_RCV = 2048 ; Define max receive for direct I/0 


; Argument List offsets for FDT routines 


00000000 Pi = 0 
00000004 P = 4 
00000008 P = 8 
0000000C Pa = 12 
00000010 PS = 16 
00000014 P6 = 20 


: Define format of second lLongword of IOSB returned in ACCESS and SETMODE 
3; functions to the DLE user. 


SDEFINI STAT 
-VIELD STAT,O,<- 
aaa ; Circuit is a “broadcast circuit” 


SDEFEND STAT 


> Define format of NI diagnostics buffer 


ee ak a ad ed od = = od dd wd wd 2 8 od dd 3 = 2 2 2 2 a 


CODD OD 09 SII SIDE DDS DDS DDD DD TTT UT BB BB BE EB AWA 
WR 9 OONAUE WN 9 OD NAMES WIN SO ODNAUS WN 0 OCONAULS WN OOONOULS Ww 


? SDEFINI DIAG 
8 SDEF DIAG_L_DATA -BLKL 1 ; Address of start of data 
004 SDEF DIAG_L_USERBUF .BLKL 1 ; Address of user buffer 
008 SDEF DIAG_W_SIZE -BLKW 1 ; Size of structure 
00A SDEF DIAG_B_TYPE -BLKB 1 ; Type of structure 
0000000C 0008 -BLKB 1 
00C $EQU DIAG_C_NIHDRSIZ 14 ; 
00C SDEF DIAG_G_DATA BLKB DIAG_C_NIHDRSIZ ; 14 bytes of NI datalink header 
Bia $DEF DIAG_C_LENGTH ; Length of structure 
O1A SDEFEND DIAG 


NDDRIVER - DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page | 
Vv ah DRIVER PROLOGUE TABLE mi ie} 03:30: 38 ENETACP.. SREINDDRIVER.MAR: 1 . 3) 
.SBTTL DRIVER PROLOGUE TABLE | 
187 ; 
; 188 ; DRIVER PROLOGUE TABLE | 
190 ° 
000000 191 -PSECT $$$105_PROLOGUE 
00 13 DPTAB = ; Define driver prologue table 
00 19 END = DLESEND,- 3; End of driver 
000 194 ADAPTER = NULL,=- 3; Adapter type 
000 195 UCBSIZE = UCB$C_ND_LENGTH,- : UCB size 
0 136 NAME = NDDRIVER : Driver name 
Oe 138 DPT_STORE INIT 3; CONTROL BLOCK INIT VALUES 
0038 200 DPT_STORE CRB,CRBS$L_INTD+VEC$L_ADP,L,0 ; No ADP pointer 
O03 01 DPT“STORE UCB.UCBS$B-FIPL,B,NETSC_IPL  ; Fork IP 
043 8 DPT_STORE UCB,UCB$B_DIPL,B,NETSC_IPL 3; Device IPL 
0047 20 DPT“STORE ORB,ORB$B-FLAGS,6,- 
0047 204 <ORBSM_PROT_16> ; SOGW protection word 
0048 205 DPT_STORE ORB,ORB$W_PROT,wW, 3; Default protection 
0050 206 DPT-STORE ORB.ORBSL~OWNER,L,<*X010001> : Owner UIC 
0057 07 DPT_STORE UCB,UCBSL_DEVCHAR,L,- 3; Device characteristics 
0057 208 <DEVSM_NET!- : Network device 
0057 209 DEVSM_AVL!=- ; Available 
0057 210 DEVSM_SHR!- ; Shared by multiple users 
0057 9211 DEVSM_MBX ! - ; Mailbox type (no hardware) 
0057 \¢ DEVSM_IDV!- § Input device 
bees 17 DEVSM_ODV= ; Output device 
O05 15 DPT_STORE UCB,UCB$W_DEVBUFSIZ,W,0 : 
006 16 DPT_STORE UCB, UCB$W_STS W,.UCB$M_ ONLINE ; Device online 
se 4 DPT_STORE UCB-UCB$W-NEXT_ID,W,0 : Initialize unique ID number 
BReo $35 DPT_STORE REINIT : CONTROL BLOCK RE-INIT VALUES 
006D 31 DPT_STORE DDB,DDBSL_DDT,D.NDSDDT AEA 
4483 ¢ DPT_STORE CRB,CRBSL_INTD+VECSL_UNITINIT,D,UNIT_INIT ; Unit Initialization 
007 2 DPT"STORE END 


se 
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; DRIVER DISPATCH TABLE 


0000 -PSECT $$$115_DRIVER,LONG 
DDTAB DEVNAM = ND,- 3; DRIVER DISPATCH TABLE 
FUNCTB = FUNCTABLE,- ; Function decision table address 
= DLESSTARTIO,- : Start 1/0 operation 
CANCEL = DLESCANCEL,- ; Cancel 1/0 entry point 
UNSOLIC = DLESLPD_DOWN ; 


; “LPD down”’ entry pgine 
; (called by NETACP only) 
-SBTTL FUNCTION DECISION TABLE 


FUNCTABLE : ; FUNCTION DECISION TABLE 
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FUNCTAB ,- ; Legal Functions 
<READVBLK ,READLBLK,-=- ; Read 
WRITEVBLK,WRITELBLK,- ; Write 
SETMODE,- ; Set mailbox message filters 
ACCESS,=- 3 Logtcatet ten Connect/Reject 
ACPCONTROL,- ; ACP Control function 
‘ DEACCESS,=- 3; Logical-Link Disconnect 
FUNCTAB ,- ; BUFFERED 1/0 FUNCTIONS 
<READVBLK ,READLBLK,= ; Read 
WRITEVBLK,WRITELBLK,- ; Write 
SETMODE ,- ; Set mailbox message filters 
ACCESS,=- 3 heogtcatn sts Connect/Reject 
ACPCONTROL,- ; ACP Control function 
: DEACCESS,- ; Logical-Link Disconnect 
FUNCTAB DLESFDT_RCV, <READLBLK> ; Read 
FUNCTAB DLESFDT_XMT <WRITELBLK> ; Write 
FUNCTAB DLESFDT-ACCESS, <ACCESS> : Connect Logical-Llink 
FUNCTAB DLESFDT-DEACCESS,<DEACCESS> ; Disconnect Logical-Link 
FUNCTAB DLESFDT_SETMODE, <SETMODE> : Set mailbox message filters 
FUNCTAB DLESFDT_CONTROL, <ACPCONTROL> ; ACP Control 


DRIVER - DECnet DLE driver 16-SEP-19 :3 AX/VMS Macro v04-00 Page 
YOee O00 DLESSTARTID - Start 1/0 operation §-8 “SEP- 198 8}: #9: 33 ENETACP. SREINDDRIVER.MAR: 1 . 
2 $6 : -SBTTL OLESSTARTIO - Start 1/0 operation 
2 oe 3 DLESSTARTIO = START I/O OPERATION 
9 5 ; This routine is entered when the associ * ted unit is idle and a packet 
38 71 ; is available for orpcess ing. The IRPSL_WIND field is used to locate the 
9 i 3 associated window block. 
$90 S9h 
: Inputs: 
9 75; 
9 6 : Re = UCB address 
$8 4 : R3 = IRP address 
0090 8 2 IPL = FIPL 
4844 80 ; 
009 81 ; Outputs: 
0090 Ht : 
94 3 None 
090 se 3 
0090 5; RO-R2,R4 are destroyed. 
0090 86 ;- 
0090 87 DLESSTARTIO:: : Process next IRP 
O7EO 8F BB 0090 88 PUSHR #*M<R5,R6,R7,R8B,R9,R10> ; Save registers 
10 0094 89 BSBB PRO : Process the I/0 function 
O7EO 8F BA 0096 90 POPR #*M<R5,R6,R7,R8,R9I,R10> : Restore registers 
53 58 AS b9 009A 291 MOVL UCBSL_ {RP(RSS RS ; Get I 
OA 13 009 38 BEQL : If Far then its been queued 
00A 9 : or suspended, start next 1/0 
50 38 A3 7D OOA0 94 MOVa IRP$L_IO0ST1(R3),RO 3 
00000000'GF 17 Baar + JMP G*1OCSREQCOM 3 foaplete 1/0 & start next 1/0 
Boaa 4 : Start next 1/0 without completing current IRP 
53 4C BS OF OOAA 299 50S: Remove @UCBSL_IOQFL(RS) ,R3 ; Get next IRP 
19 Boas 00 3 sf VS then non 
00000000 * GF 1 0B0 01 rt MS G*IOCSINITIATE Call Exec to dei iene IRP to driver 
0086 88 60$: CLRBIT #UCBSV_BSY,UCBSW_ STS(RS): Kiteu further IRPs to be delivered 
05 0068 RSB 3; Return to Exec 
OBC 4 
OBC 5 PROC_I0: 
OBC Bg 3 
tee th 3; Get the DWB address (if any) and dispatch on function code with: 
pat 09 3 R6 = DWB address (may be zero) 
C 10 ; RS = UCB address 
43 V : = IRP address 
56 18 A3 pe 18 MOVL {ROSL_WINDCRS) RG ; Get Owe, 
9¢ C 14 BLSS 0$ : If LSS bus A in system space 
6 D4 C 15 CLRL R6 : Else, invalidate window pointer 
FFEFFFCO BF C 16 10$: BICL3 " “CcLOSH FCODE : Get function code without 
57 20 A3 CA 31 RP$W_FURC(R3), 87 : modifier bits 
4 \8 SDISPATCH R7, TYPE=B,- 3 nthe 1/0 
cD 0 < c10$_ACCESS DLESACCESS>,=- t qanect Requests 
CD 1 <IOS"DEACCESS, DLESDEACCESS>,- Disconnect Requests 
CD 2 <10$_SETMODE, DLESSETMODE>,- : SetMode Requests 


o 


F 8 | 
Dues TERT gig tho 1/0 operation ade 93:79:38 NETACE, BRE SRobRiver. MAR; 1 _ 8) 


Be ; <10$_ACPCONTROL, DLESCONTROL>,- ls ‘f ACP epentrot function 
se, ru 
OOF4 BF 3C FD 5 MOVZWL #SS$ TOE NSS : ae at nan supported 
38 A3 101 $ IRPSC_IOSTI(R3S : Set error code 
05 01 RSB 3; Return if unknown 


NDDRIVER = DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro V04-00 Pa q 
yO 008 DLESEDT ACCESS = IOS_ACCESS FDT process mets 83:99:38 ENETAC «SRCINDDRIVER.MAR; 1 - (6) 
104 9 -SBTTL DLESFDT_ACCESS = IOS_ACCESS FDT processing 
: 2 9 ~SBTTL DLESACCESS - IOSACCESS ‘’startio’’ processing 
| 
104 344 
104 § ; DLESFDT_ACCESS = I10$_ACCESS FDT processing 
} : ¢ : DLESACCESS - Common connect ‘startio’’ processing | 
104 336 ; DLESFDT_ACCESS passes the IRP through the EXEC, where the user parameters 
104 : are packaged into a ‘complex buffer”, to the ACP. The ACP processes the 
} ? 3 + connect request and puts the circuit into MOP mode, if necessary. 
104 rt ; DLESACCESS gets control when the circuit is ready, so that the access 
! r r : function can be completed. 
104 rk : It should be noted that the size of the DWB is not charged against the user | 
104 44 ; byte count or byte Limit quotas. It is assumed that these quotas are at 
104 45; least portsy used to Limit a run auey process and that the file quota of a | 
Bide re ; process, which is charged, is a sufficient mechanism. 
196 48 ; Inputs: 
+ 49 ; 
104 50 ; R6 = CCB address 
104 31 3 R5 = UCB address 
104 26 : R4 = PCB address 
104 53; R3 = IRP address 
Ht 54; 
0104 55; Pl = Circuit name desired for DLE 
0104 2 3 
Ht 57 ; Outputs: 
104 58 ; 
0104 59; None 
104 60 ;- 
104 61 NOOPER: 
50 2894 BF 3C 0104 $¢ MOVZWL #SS$_NOOPER,RO ; ‘operator privilege required’ 
05 11 0109 6 ABORTIO 
108 64 DEVNOTMNT: 
50 O00O7C 8F 3C 149 re mente MOVZWL #SS$_DEVNOTMOUNT ,RO ; “device not mounted” 
00000000 ° GF 17 HY $ MP G*EXESABORTIO ; Return to abort 1/0 
B19 3 DLESFDT_ACCESS:: ; IOS_ACCESS ‘‘FDT*’ processing 
O18 4 : OPER privilege is required to issue a DLE IO$_ACCESS 
118 3 [FNPRIV OPER,NOOPER ; Error if user doesn't have OPER 
11C © 375 : Check if the ACP is in ‘‘dismounting’ state, or if it's even 
By: 4 ; mounted at all. 
EA 38 AS 13 E1 116 28 ac #DEVSV_MNT,UCBSL_DEVCHAR(RS) ,DEVNOTMNT ; If not mounted, error 
—E5 38 aS 1 £0 ’ H 4s BBS #DEVSV_DMT,UCBSL_DEVCHAR(RS) ,DEVNOTMNT ; If dismounting, error 
6 : Allocate DWB for a window control block 
51 50_8F 9A 126 MOVZBL suBsc LENGTH.R1 ; Set block Length 
y 0 O12A 4 BSBW BLE ALONPGD_2 3; Allocate/zero non-paged pool 
E E9 0120 5 BLBC RO, ABORTIO 3; Exit if error detected 


———_—_— 


——— 


DRIVER = DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro Vv04-00 Pa 10 Nf 
yO 008 DLESAC SS = IOS_ACCESS ‘‘startio” proces eater 2:1 33 ENETACP. SREINDDRIVER. MAR: 1 et (6) v 
4C A 5 MOVL R2, 1RPSL_DIAGBUF (R3) ; Save DWB address 
OA a3 3 8 MOVB #OYNSC_BOFIO,DWBSB_TYPE(R2) ; Setup block type | 
: Initialize the owe 
38 D MOVL — UCBSL_DDB(R5) ,R ; Get address of DDB 
dD MOVL ster teas R ; Get address of ND‘'s UCBO 
a2 D MOVL  RO,OWBSL_UCBO(R2) : Save address of ND'’s UCBO 
0 98 8 INCW UCBSW_NERT_ID(RO) : Allocate another unique ID number 
8 MOVW e+ si +e ),- ; Move unique ID to D 
50 if 43 MOVAB DWBSQ"-RCV_MSG(R2),RO ; Get address of received msg queue 
$8 MOVL RO, (RO) 3; Init. listhead 
6 bE MOVAL (RO)+, (RO) 
50 1 5 MOVAB DWBSQ_USER_RCV(R2),RO ; Get address of user receive queue 
6 D MOVL RO, (RO) 3; Init. lListhead 


2 (RO) 
MOVAB DWBSQ_USER_XMT(R2),RO ; Get address of user transmit queue 
RO, (RO) 3 Init. Listhead 


MOVAB DWBSQ_XMT_PND(R2),RO ; Get address of transmits pending queue 
MOVL : Init. Listhead 


ao 
PPP PP POMP OMI POI FOI POOP yP 


VMANWNOOCNOOCNMOONMOOCMNOOOOWM 
io 
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) 
C B6 INCW DWBSW_REF CNT(R2) ; Increment reference count 
C dO MOVL IRPS$L_PID(R3),- ; Save PID of accessor 
4 DWBSL_PID(R2) 
8 B0 RP$W_CHAN(R3) ,- ; Save channel of accessor 
C DwBSW~CHAN(R2) 


: Insert DWB onto "‘global"’ DWB List in our UCBO, so that we 
; can keep track of all DWBs for all DLE users. Make sure 
; we keep the DWBs in order by DLL_CHAN. 


Get DIE UCBO address 
Get address of Listhead 
loop 


DWBSL_UCBO(R2) ,RO 3 
: Setup for 


L 
MOVAB UCBS$Q"DWB_LIST(RO),R1 


10$: MOVIL (RO) -RO 
me 


CMPW = DWBSW_ID(RO),- 
DWBSW_ID(R2) 

BLSSU_ 10 : If not yet. keep oing 

15$: INSQUE (R2),@4(RO) : Insert into global DwWB List 


: Increment ACP mount count, so the ACP doesn’t go away until 
; we complete this DwB. 


MOVL  UCBSL_VCB(RS) ,RO ; Get VCB address 
INCW RCBSW~MCOUNT (RO) ; Increment ACP mount count 


: Send the request to NETACP for further processing. NETACP will 
: optup the circuit for DLE access, if necessary, and then return 
; the IRP back here again. 


SETBIT #IRPSV PHYS19,= ; Mark this as a DLE IRP 
IRP$W_STS(R3) 


; Get next entry 
; End of List? 
; If so, insert it 
Are we at the right place? 
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Par 


00000000°GF 17 JMP G*ACPSACCESSNET ; Continue in EXEC 


I 8 


#10$_READLBLK 


08 A 
05 08 AO (21—séE:? BBC 
SETBIT sowesy DLL_RBF 
#10$_WRITECBL 


PERLE R PEPE PPP PPP EES 


FUN CO OODNAUNE WN - OOONAUE 
< 
es 


05 08 AO (20~=«so#€E*1 20S: 10 K°B(RO) 73 
aes SETBIT #OWBSV_OLL_XBFDWBSW.FLAGS(R6) ; then set flag for ‘‘buffered” 
9 : If NETACP returned the initial MOP message for this DLE user, 
3 : then set it up as if we just received the message. 
55 53 9 MOVL = RB, RS Save address of ACCESS IRP 
52° 54 AS 495 MOVL RPSL_EXTEND(RS) ,R2 Get CXB address 


2 


A 
: 49 BSBU «=—sINIT_RCV_IRP 
24 as” 89 


none 
; Initialize datalink receive IRP 
RQ. 908 B 
49 MOVL R2, IRP$L_IOSB(R3) 


ranch if error detecte 


49 BEQL Los > Sk 
t Attach CXB to datalink IRP 
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DRIVER = DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro v04-00 Page 11 Ne 
YOen O08 DLESACEESS - IOS_ACCESS “‘startio’™ proces eet 7 9:70:38 NETACP.SRCINDDRIVER.MAR; 1 ° 1, ve 
ete | 
184 445 ; We arrive here after the ACP has finished with the IRP, and has requeuved 
#4 t2$ ; it to this or iver for further processing. oe 
IBS S48 | trots: | 
184 4 9 : RS = UCB address 
et 2 3 R3 = IRP address 
1B4 4 : F IRPSL_DIAGBUF = DWB address 
1°? 43s : IRPSL_EXTEND = Address of CXB holding initial unsolicited MOP message 
1B46 4 $ : CXBSW_LENGTH = Message Length in bytes (not incl. NI header) 
184 457; CXBSC_HEADER = 14-byte NI datalink header 
I} $28 : CXBSC_HEADER+14 = Message 
184 460 ; Outputs: 
1B4 461; 
1B4 re {| 3 None 
pipe | 46a 
Sipe 465 DLESACCESS:: : IOS_ACCESS ‘‘startio’’ processing 
008 30 0184 £96 BSBW GET_WNDSC : Get CCBSL_WIND image descriptor 
67 D4 187 46 CLRL (R7) > Init CCBSC_WIND image 
189 468 SETBIT #IRPS$V FUNC, IRP$W_STS(R3) ; Mark for write back 
3 A301 B80 186 414 MOVW #1, 1RPSwW_BCNT(R3) 3; Write back one descriptor 
6 4CA3 DO O1C2 470 MOVL  IRPSL_DIAGBUF(R3).R6 ; Get DWB address 
4C A D4 106 471 CLRL IRP$L_DIAGBUF (R3) 3; Clear pointer in IRP to DWB 
6A 38 A e9 ise ri 4 BLBC IRP$L_IOST1(R3) ,80$ ; If ACP returned with error, exit 
ise : Successful access 
10D 47 SETBIT #DWBSV_RUN,- : Mark DWB in “'run’’ state 
1cD 47 DWB$W_FLAGS(R6) 
67 56 d0 1 f MOVL R6, (R7) ; Setup CCBSL_WIND value 
1D ; Setup the flags which tell whether the datalink does 
1 3 buffered or direct transmits/receives. 
50 48 a6 DO 01D MOVL DWBSL_OLL UCB CRG) ,RO ; Get UCB address 
50 0088 CO 4 1D9 MOVL UCBSL_DDTTRO),R ; Get DDT address 
ies ies DOTSL_FDT(RO) Get FDOT address 
iE 
1Fi 
1F6 
1F6 
1F6 
1F 
ug 
1F 
1FD 
3 
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DRIVER = DECnet DLE driver 16-SE 4 AX/VMS Macro v04-00 Page 12 
YOen 08 DLESACEESS - IOS_ACCESS “'startio” proces gr SEF) 32 83: 9: %$ YNETACE. SRCINDDRIVER.MAR; 1 . (6) 
,. 9 BBC #IRPSV_DIAGBUF ,- ; Br if not diagnostic buffer 
OF 2A AS op ° TRPSU STSCRS) Ss ’ 
50 DO ¢ MOVL RPSL b=DLAGBUF ER ),RO  ; Get address of of diag buffer 
§ 8 : 4 move. sonnet NINDRS 2 : io Nioheader to diag buff 
7 : Co ea a. o diag buffer 
48 hs 1 505 XBSC“HEADER( RS) ” . 
0 1 § @DIAG-L parece ) 
3c BA 1A POPR eet fh R5> 3; Restore registers 
1 60 1¢ 35$: MOVW atte NORMAL ,= 3; Set successful receive operation 
38 A 1 IRP$L_TOST1(R3) 
gc B0 19 MOVW Cxesw te hewern it ; Set size of message in I0SB 
18 B6 6 OE 3 12 INSQUE {RS} Cad sbossa “ACN MSG+4 (RE) ; Insert message on receive queue 
3 1 : Queue initial receive to datalink driver 
50 01 35 9 1g 40$: MOVZWL So#sss NORMAL ,RO ; Setup 1/0 status 
0106 0 C 17 90$: BSBW GET_STATUS ; Setup second 10S8 seddress 
33 : 4 F \8 MOVL ° 3; Restore ACCESS IRP address 
38 A 0 D 2 1 MOVQ RO, IRP$L_IOST1(R3) ; Store status IRP 
05 $ y 3; Return to post ACCESS 1/0 
7? 3 
4 § 3 Unsuccessful access 
7 5 BOS: SETBIT #DuBsV DELETE ; Mark DWB to be deleted 
0 7 3 DWBSW_FLAGS (RG) 
007F Hi C 7 BSBW DEAL it C_DwB 3; Deallocate DWB, if possible 
00C6 0 O23F 528 BSBW RESTORE_QUOTA ; Restore quota 
05 0242 529 RSB ; On return, complete 1/0 


ss 


k 8 
RIVER = DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro v04-00 Page 1 NO 
aa Get ABD descriptors -SEP-1984 93:70:38 NETACP.SRCINDDRIVER.MAR; 1 ° 13, vg 


1 -SBTTL Get ABD descriptors 


+ 


Hotere return descriptors of the various Q10 parameters from 
e 


4 
3 
& 3 
4 3 | 
r § 3; Inputs: 
r 8 : R3 = IRP 
? re 3; Outputs: 
4 8 : R7 = Address of actual data field in ABD 
r rb 3 RB = Size of data field 
r 22 -ENABL LSB 
4 23 GET_WNDSC: ; Get window descriptor 
5 D4 4 $8 CLRL ne 3; Get descriptor offset 
1 11 4 4 BRB 10$ 3; Continue 
47 50 GET_PIDSC: 3; Get Pl descriptor 
58 08 00 47 51 MOVL #8,R8 3; Get descriptor offset 
OD 11 026A 3 BRB 10$ : Continue 
4C GET_P2DSC: 3; Get P2 descriptor 
58 10 00 4C 54 MOVL #8*2,R8 3; Get descriptor offset 
08 11 4F 55 BRB 10$ 3; Continue in common 
51 2$ GET_P3DSC: 3; Get P3 descriptor 
58 1 dO 51 5 MOVL #8*3,R8 3; Get descriptor offset 
0 11 54 58 BRB 108 3 Continue in common 
56 59 GET_P4DSC: ; Get P4 descriptor 
58 20 dO 56 60 MOVL #824 RB 3; Get desciptor offset 
58 2C8 0 59 61 108: ADDL arrest SVAPTE CAS) RE ; Get descriptor address 
57 ee C 5D $6 MOVZWL (R8)+,R 3; Get offset to data 
57 FF A884 E 60 6 MOVAB. =1(R85CR7),R7 ; Get ptr to data after skipping 
$2 28 3 over access mode byte 
58 68 HS 6 65 MOVZWL (RB),RB ; Get Length of data 
Be ap ae 
69 568 -DSABL LSB 


L 


DRIVER = DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro V04-00 Pa 14 
a Nt DLESEDT DEAE CESS™ IOS_DEACCESS FDOT proce oe ets 9 83:79:38 ENETACE.. SREIADDRIVER.MAR: 1 (8) 
7 -SBITL DLESFDT_DEACCESS= IO$_DEACCESS FDT processing 
4 i -SBTTL DLESDEACCESS - IOS_DEACCESS “‘startio’’ processing 
3 o? ; DLESFDOT_DEACCESS = User Q10 request to disassociate DWB with the 1/0 channel 
é3 f3 ; Inputs: 
$9 5§ ; RS = CCB address 
2 4 : R5 = UCB address 
9 79 ; R4 = PCB address 
3 » ; R3 = IRP address 
9 ; Outputs: 
et | 
° : 3 None 
6 69 § HLESFDT_DEACCESS: : ; IOS_DEACCESS FDT routine 
18 AS) «6001S CCA 69 BIC #1, IRPSL_WIND(R3) ; Clear interlock bit 
19 60 8 BL 3; If LSS then link is accessed 
50 OOAC 8F $ 6F 589 MOVZWL #SS$_FILNOTACC,RO 3: Say “Link not accessed’ 
FE99 1 8 oS 331 108 BRW ABORTIO ; Abort the 1/0 
8 a 38 ' ; Abort all outstanding 1/0 on the channel 
O7F8 8F BB 0277 59% PUSHR #*°M<R3,R4,R5,R6,R7,RB,RI,R10> 
0 KS 95 DSBINT UCBS$B_FIPL(RS) : Synchronize 
56 18 A3 8 028 96 MOVL IRP$L_WIND(R3) ,R6 3; Get DWB address 
01BA 30 8 86 97 BSBW CANCEC_ALL ; Cancel all outstanding 1/0 
89 598 ENBINT 3; Restore IPL 
O7F8 8F BA O af 228 POPR #*M<R3,R4,R5,R6,R7,R8,R9,R10> 
0 $9 oR) : Send the request to NETACP for further processing 
$9 rs SETBIT #IRPSV Pursio.= 3; Mark this as a DLE IRP 
9 604 IRP$W_STS(R3) ; 
00000000 * GF 17 32 60¢ JMP G*ACPSDEACCESS ; Goto common I0$_DEACCESS FDOT routine 
0298 607; 
0298 608 ; We arrive here after the ACP has finished with the IRP, and has requeued 
0 43 293 ; it to this driver for further processing. 
98 611 : Inputs: 
9B ol¢ 3 
98 613; Ro = DWB address 
9B «614; RS = UCB address 
98 615; R3 = IRP address 
98 918 3 
43 $1 3; Outputs: 
98 eis ; None 
esi 
98 6 § DLESDEACCESS:: ; IOS_DEACCESS ‘‘startio’’ processing 
Fas 30 98 BSBW GET_WNDSC : Get CCBSL_WIND image descr ptor 
67 D4 9 4 CLRL (R7J ; Clear CCBSL_WIND image in the buffer 
i 5 SETBIT a 1RPSY FUNC IRP$W_STS(R3S ; Mark for write bac 
32 Ad sé1 B0 A 626 MOVW if , IRPSW_BCNT(R ) 3; Write back 1 (the window) ABD 


n 8 
NDDRIVER = DECnet DLE driver -SEP-1984 AX/VMS Macro V04-00 Page 1 
YOen O08 DEALLOC_DWB = Deallocate Owe oe Haat 8}: 79: 3 NETACP.S RCIN NDDRIVER.MAR; 1 ° (8) 
a 3 i -SBTTL DEALLOC_DWB = Deallocate DwB 
BE 89 | ; DEALLOC_DWB = Deallocate DWB, if possible 
BE ty : This routine is called to deallocate the DWB if an access request fails, 
BE 4 ; or as a result of a deaccess function. If the DWB still has I/0 pending, 
BE 45 ; the DWB is marked for delete, so that when the 1/0 completes, the DWB is 
BE ore 3; deleted. 
+) 948 Inputs: 
BE 648 ; R6 = DWB address (may be zero) 
BE 650 ; Outputs: 
BE 651; 
1 
+) o2¢ ; RO-R1 are destroyed. 
BE 656 BEALLOC_DwB: 
56 b BF 657 TSTL R6 3; Check ~ address 
eF 1 C 658 BEQL 90$ 3; Skip if n 
046 «€1 aste 659 BBC #O0WBSV_DELETE 3; If not yet "aesked for delete, 
2A OE A6 cf 660 DWBSW “FLAGS (RO) , 90$ : then wait until it is allowed 
ce oe ; Deallocate all received messages 
51 1486 OF C7 664 108: REMQUE @DWBSQ_RCV_MSG(R6) ,R1 : Get ceepives message IRP 
046 1D O2CB 665 BV : If VS then none 
27 610 O2cd 906 BSBB DFALLOC_ASG ; Deallocate received message 
F6 11 8 6h rots 208: BR B 1 ; Loop 
eat 06? : : If ony IRPs are still queued to the datalink, then leave 
0901 $70 : the DWB around until the I/0 completes. 
47 a6 «95)=—«02D1 67¢ TSTB  DWBSB_IRPCNT(R6) ; Any IRPs still queued to datalink? 
18 12 0 + er? BNEQ 90$ : If so, wait for them to complete 
D6 679 ; Deallocate the DwB 
50 38 A6 DO 0206 $75 MOVL  § DWBSL_UCBO(R6) RO ; Get UCB address 
50 4 A if DA 978 MOVL CB$L_VCB(RO), RO ; Get VCB address 
1 1 D 67 BEQL : If none, fatal error 
54 A a e) 6 9 DECW RCB$W_MCOUNT (RO) : Decrement ACP mount count 
56 666 F E 6 REMQUE (R6),R6 ; Remove from UCB$Q_DWB_LIST 
50 56 00 Eg 6 § MOVL R6,R : Get buffer address 
00000000" Gt 16 0269 6 JSB G*COMSDRVDEALMEM > Deallocate block 
6 Be EF 684 CLRL R6 ; Invalidate pointer 
5 fy ? 5 90$: RSB 
: e 100$: BUG_CHECK NETNOSTATE ,FATAL : ACP dismounted while DWB still active 
F 3 
: 696 3 Deallocate a received message IRP 
F 92 * 
F6 $38 DEALLOC_MSG: 


SS 


B 9 , 
yoenO08” DEALLOE DuBe= “bent Locate DUB Meee eT eBe Oo F5i8s PANT WES Maes e Net ek mans1 28° td) 


DW 
50 224A Dd F6 MOVL RP$L_IOSB(R1),RO ; Get CXB address, if an 
Og RSER B88 Beat dss : Skip if none . 
1 FC 3669 BSBB 50$ 3; Deallocate it 
50 ae FE 697 15$: MOVL R1,R0 3; Setup IRP address 
00000000 ' GF be $4 o38 50$: JSB G*COMSDRVDEALMEM ; Deallocate it 


si tomate 
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wooR iver - DECnet DLE 
v04-000 RESTORE_QUOTA = Restore ‘‘access'’ quota -SEP-1984 NETACP.SRCINDDRIVER.MAR; 1 (10) 
0308 44 : -SBTTL RESTORE_QUOTA = Restore ‘'access’’ quota 
6 i ; RESTORE_QUOTA = Restore quota taken for accessed channel 
0308 708 
0308 706; fails, or on a deaccess function. 
0308 707 ; 
030 708 ; Inputs: 
030 709 ; 
8 0 710 ; R3 = IRP address 
30 711; 
tH ie ; Outputs: 
O308 714 ; RO-R1 destroyed. 
308 715 ;- 
0308 716 RESTORE_QUOTA: 
3c. 6©60308)=—s 717 MOVZWL IRPS$L_PID(R3),R0 ; Get process index 
DO O30C «718 MOVL G°SCHSGL _PCBVEC RI : Get address of PCB vector 
dO 31 719 MOVL (R1)CROJ,R1 ; Get PCB address 
D1 031 720 CMPL PCBSL_P1O(R1), IRP$L_PID(R3) ; Still the same process? 
is 031C 721 BNEQ 90$ »% not, skip it 
D O316 7 : MOVL  § PCB$L_JIB(R1),RO : Get JIB address 
3 $5 7 INCW JIBSW7FILCNT (RO) 3; Return quota taken for access 
05 0326 724 90$: RSB 


: This routine is called to return the user's quota when an access request 
| 
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er 16-SEP-1984 03:30:36 paatyes Macro V04-00 
Process IOS_SETMODE re 5-SEP-1984 02:17: NETACP.SRCINDDRIVER.MAR; 1 


-SBTTL DLESFDT_SETMODE = Process IOS_SETMODE request 
DLESFDT_SETMODE Process IOS$_SETMODE Q10 
Sets the substate for the DLE adjacency. 


oo 
“ 
mo 


B address 
B address 
B address 
P address 


= Address of UNA P2 buffer (used only for DLE access to UNA) 
= Address of 6 byte remote NI address (used only for UNA) 
= Address of 4 byte DLE substate for connection 


1/0 is posted 


LESFDT_SETMODE:: 


; Process IO$_SETMODE function 
BICL3 #1, IRPSL_WIND(R3) ,R2 
BGEQ 608 


; Clear interlock bit 


52 18 A3 01 
38 3; Error if Link not accessed 


oO 
com 


: If P&4 specified, update the DLE substate 


MOVL P4(AP) ,RO : Is P4& specified? 
BEQL : If not, skip it 
IFNORD #4,(RO),70$ 3; If not readable, report error 
vr MOVB  (RO),DWBS$B_SUBSTA(R2) ; Set the new sub-state 


3 If P3 specified, update the remote NI address 


50 OC AC 00 
OA 


46 A2 60 90 
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50 08 AC 00 MOVL P3(AP) ,RO : Is P3 specified? 
OE 1 BEQL 5$ : If not, skip it 
76 IFNORD #6,(RO),70$ ; If not readable, report error 
40 a2 80 00 76 MOVL (RO)+,DWB$G_REMNOD(R2) : Store remote NI address 
44 A2 60 B80 ree 25$ MOVW (RO) ,DWB$G_REMNOD+4 (R2) 
766 : Send the request to NETACP so that it can finish processin 
5 767 3 those arguments which require process level action (like the 
5 £08 ; UNA P2 buffer). 
é 16 SETBIT #IRPSV_PHYSIO,- 3; Mark this as a DLE IRP 
5 771 IRP$W_STS(R3) 
29 =©10 5 ore BSBB SETMOBE_ACPBUF ; Build ACP complex buffer 
5 77 SETIPL #IPL$_SY ; Synchronize with 1/0 database 
50 4 AS 00 5 774 MOVL UCB$L_VCB(R5) ,RO ; Get VCB address 
C AO OB 6 775 INCW VCBSW~ TRANS (RO) : Increment transaction count 
00000000'GF 1 o3 £6 JMP G*EXESQIOACPPKT 3 Queue packet to AQB and RET 
69 a 3 
rt 444 3; Error paths 
50 OOAC ar 3C 69 re 60$: MOVZWL #SS$_FILNOTACC,RO : Say “Link not accessed’’ 
Sco we 6— 782 BRB 80$ 3; Abort the 1/0 
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g 9 
er 16-SEP-1984 01:30: AX/VMS Macro V04-00 
Process IO$_SETMODE re ~$eE=138¢ 83:99:38 ENETACE. SREINDDRIVER. MAR: 1 
Os: MOVZWL #SS$_ACCVIO,RO ; Access violation reading NI address 
$: BRW ABORTIO ; Abort the 1/0 


We arrive here after the ACP has finished with the IRP, and has requeued 
it to this driver for further processing. 


: Inputs: 

; R6 = DWB address 

: R5 = UCB address 

5 R35 = IRP address 

: Outputs: 

: None 

DLESSETMODE:: IO$_SETMODE ‘‘startio’’ processing 
BLBC IRP$SL_IOST1(R3) ,90$ f error, leave IOST2 alone 


BSBW GET STATUS 


Get status flags 
rene R1,TRP$L_I0ST2(R3) 


Store them in second Longword 
Post 1/0 with ACP status in IOST1 
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= DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page 21. 
SETMODE_ACPBUF = Build SETMODE ACP compl g7 SEE 1382 8337 +38 ENETACP. SREINDDRIVER-MAR: 1 ° Gd) | 
| 
03 . ~SBTTL SETMODE_ACPBUF = Build SETMODE ACP complex buffer | 
; SETMODE_ACPBUF = Build complex buffer to pass Q10 parameters to ACP | 
1 : This rout te is called by ACCESS, DEACCESS, ACPCONTROL and SETMODE 
15 ; to pass it's Q10 arguments (P -Pé) to the ACP in a complex buffer 
3 ; (a series of ABD descriptors). 
16 : Inputs: 
18 : R6 = CCB address 
19 ; R5 = UCB address 
0; R4 = PCB address 
; 1 3 R3 = IRP address 
8 : : P2 = Address of a descriptor of a input buffer (read, not written) 
: 5: Outputs: 
0 8 : : IRPSL_SVAPTE = Address of complex buffer | 
a8 é : : ALL errors go to ABORTIO. 
B36 1 : RO-R2,R9-R10 are destroyed. 
038 § SETMODE_ACPBUF : 
51 00000048 8F DO 038 4 MOVL #12+<7#9>,R1 ; Compute basic ABD overhead for 6 args | 
038 : 5 ; plus a window descriptor 
5A 04 AC 00 baa, 3 MOVL P2(AP),R10 3; Get address of descriptor 
| ea 38D | BEQL : If specifie 
8F 3 IFNORD #8,(R10),70$ 3; and if descriptor can be read, 
50 ga 3c (0395) 8B MOVZWL (R10),RO : Get size of P2 buffer 
1 0 CO 98 840 ADDL Ri ; Add in the size of the buffer 
53 DD 98 41 10$ PUSHL R : Save IRP address 
Q0000000'GF 16 H: g JSB G*EXESALLOCBUF 3; Allocate complex buffer 
53 at? A 4 POPL R3 3; Restore IRP address 
6150 € aA8 44 BLBC RO,90$ : Exit if error detected 
¢s AS. iS dO Ad 45 MOVL R2, IRP$L_SVAPTE(R3) ; Save address of buffer 
2a3 0 80 AD 46 MOV #7, 1RP$W_BCNT(R3) ; Save number of descriptors 
1 84 SETBIT #IRPSV_COMPLX, IRPSU_STS(R3) ; Mark buffer as complex 
62 OC A2. 9E 6 rt} MOVAB 12(R2),(R ; First longword points to data 
3¢ A 4 PUSHR #*M<R2,R3,R4,K5> 3; Save registers 
0c A2 38 OO 6€ QO C § 50 movcS) # (SPS ,#6,4728, 12(R2) ; Zero all the descriptors 
51 3 dO C 51 VL . ; leaving R1 set to area afterwards | 
C BA C6 26 POPR #*M<R2,R3,R4,R5> ; Restore registers 
50 OC A2 9%E ef :? MOVAB 12(R2),RO0 ; Point to first descriptor 
P4 | 
35 32 ; Copy window pointer to complex buffer | 
02 AO 89 cf 35 MOV #4, ABD$SW_COUNT (RO) ; Set size of window pointer 
59s 51 0 Cc D 8 SUBL3 = RO,R ; Compute offset to data area 
60 9 0 D4 5 MOV R9. ABOSW_TEXT(RO) : Set offset to window pointer 
04 A0 04 06 9E 0307 860 MOVAB CCBSL_WIRD(R6) ,ABDSL_USERVA(RO) ; Set address in process space | 
81 3894 dC 61 CLRB + 3; Set access mode = kerne 
81 04 A6 00 es 66 MOVL CCBSL_WIND(R6),(R1)+ ; Copy actual window pointer | 
E 64 : Copy P2 argument to complex buffer 
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; Skip to P2 ggeceiptor 
; Was P spec fied? 

; If not, skip 
; Set size of P 
; Compute offset 
; Set offset to window po 
; Set address in process space 
; Copy access mode 
; Save veg eter 

; Copy actu 

; Restore registers 
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al P2 buffer 


; Access violation 
; Abort the 1/0 
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ive 16-SEP-1984 01:30: 
resh DLE status flags fo ~$Fb= 1382 83:99:38 ENETACP. SREINDDRIVER. MAR: 1 
This routine is called each time we want to return the DLE status flags 
to the caller. Currently, these flags are returned on all ACCESS and 
; Inputs: 
R6 = DWB address 


E dr 

- Ref 
- -SBTTL GET _STATUS - Refresh DLE status flags for 10SB 
23 GET_STATUS = Construct updated status flags for 2nd longword of I0SB 
3 : SE TMODE “Functions. 

30 ; The flags are defined by the STAT structure. 

92 ; 

38 

94 ; 

95 ; 

; Outputs: 


9% : 


B39 Ri = DLE status flags 
$01 ALL other registers are preserved. 
9 : GET_STATUS: 

51 F4 CLRL R1 : Init. flags longword 
905 ; Seta flag indicating if the circuit being used is 
90 ; a “broadcast circuit” (Ethernet) or not. 


OF 
04 0E A6 =«203—=CO#E; OOF 908 #OWBSV BC, 1 ie FLAGS(R6),20$ ; If fla 


0414 
05 0418 910 208: 


BBC 9 set, , 
909 serait #STAT_0_BC,R : Indicate that the circuit is an NI 


"S*Fos_ACPCONTROL FOT pro 'S-SEP-1984 O2:17:85 ENETACE.SREINDDRiVER.MAR:1 “29° (Fey v 
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~SBTTL DLESFDT_ CONTROL = I0$_ACPCONTROL FDT processing 
-SBTTL DLESCONTROL - IOS_ACPCONTROL ‘'startio’’ processing 
DLESFOT_CONTROL = IO$_ACPCONTROL FDT processing 
DLESCONTROL - IOS_ACPCONTROL ‘'startio’’ processing 


The FOT routine simply routes the IRP through the Exec to the ACP. The Exec 
builds a conglen buffer’ describing the control function. The ACP will 
requeue any IRP to the driver if it does not recognize the control function. 
The driver has been designed to handle some of its own control functions 
since many are protocol or control block format specific. 
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Sete Se Ge Ge Se Ge Se Ge Se Se Se Se Ge Se Se Se 
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s 
T 
41 
419818 
41 4 
4) 5 
4) § 
$13 
41 3 
3} 
41 9 
419 
‘18 § 
rt 3 ¢ Inputs: 
419 9 R6 = CCB address 
419 9 Re = UCB address 
419 9 3 R4 = PCB address 
£12 4 4 R3 = IRP address 
$13 4 1 ; Outputs: 
Sie 
419 935 BLESFDT_CONTROL:: ; "FOT'' phase for IO$_ACPCONTROL 
18 AS «6010S CA_— «0419 ae9 L #1, IRPSL_WIND(R3) 3; Always clear interlock flag 
41D 33 SETBIT #IRPSV PRYSIO,~ ; Mark this as a DLE IRP 
41 o 3 IRP$W_STS(R3) 
00000000 ' GF 17 04 +44 JMP G*ACPSMODIFY 3; Continue in EXEC 
4 941; 
4 206 3; We arrive here after the ACP has finished with the IRP, and has requeuved 
r Ser ; it to this driver for further processing. 
Re +H : Inputs: 
4 947 : R6 = DWB address (may be zero) 
4 948 ; RS = UCB address 
4 4 : R3 = IRP address 
? 22 : Outputs: 
4 $38 : None 
4 922 HLESCONTROL: : : “‘Startio’’ phase for I0$_ACPCONTROL 
50 2C A3 g 4 9 § MOVL {RPSL SVAPTECRS) .RO ; Get ptr to complex buffer 
0 42C 8695 BEQ 0$ ; Branch if none (if SCANCEL issues it) 
50 6 00 042E 328 MOVL (RO) ,RO ; Get pointer to window cescriptor 
60 D4 0431 95 CLRL (RO) 3: Prevent i790 from affecting the window 
; 960 3; by clear ng byte count in descriptor 
05 04 961 RSB ; Exit with ACP status unchanged 
t3c 968 
434 964 : SCANCEL issues an IO$_ACPCONTROL function without any buffer to signal 
rf r 364 3 a cancellation of an accessed channel. 
434 é6 ’ 
01 3C 60434 68 10$: MOVZWL S*#SS$_NORMAL ,- 3; Set 1/0 status 


OL ACPCONTROL “‘startio" p ‘S-SEPo19be Holts :3S EARINES wees Net CO mans1 P20 (93, v 


WOOOOO00O00000000 


WR OCONOUS WIT O0 


15PR, FOSTT IRS) 3 
#1,R } Fheee interlock bit 
3 LSS then valid DwB 


This is a concet of a channel with an ACCESS pending. Since 


the ACP hes the IRP in=hand, there is nothing we can do to 
get it back from here. 


: Cancel all outstanding 1/0 for active channel. 
BsBu CANCEL_ALL 3 popes all outstanding 1/0 
} x 


RIVER Cnet DLE grt 16-SEP=1 ‘AX/VMS v04-00 Page NI 
Yen OOS OL ANCEL Can neal 1/0 routine g-3e EP-19 138 83; 9: 33 WNT ACE. P.S SNDD DRIVER.MAR; 1 ° (38) vi 

rr 5 -SBTTL OLESCANCEL - Cancel 1/0 routine 

rr $i* DLESCANCEL - Cancel 1/0 entry point 
4 im t of the work for the Cancel-1/0 sequence will occur when the special 
44 Y 3 ith -ACPCONTROL Q10 is issued by the SCANCEL system service. A cancel 

rt i 3 issUed without the channel being accessed requires no work. 
4 $38 : Inputs: 
4 995 : 7 = Reason for cancel (CANSC_CANCEL or CANSC_DASSGN) 

44 338 : R5 = UCB ocarese 

44 97 ; R4 = PCB addre 

44 998 ; RS = IRP oddress if UCB is busy 

44 999 ; R2 = Channel number 

442 1000 ; 

442 1001; IPL = FIPL 

442 1 § 5 

442 1 ; Outputs: 

44 18 4; 

ose a 3 RO-R3 may be destroyed. 

Ste 1909 BLESCANCEL: : 3; Cancel I/0 entry point 

05 0442 1008 RSB 3; Done 


t 


DRIVER - DECnet DLE driver 16-SEP-19 AX/VMS 43 ro V04-00 Page 27 
aa Nt CANCEL_ALL = Cancel all outstanding 1/0 g-SEF =}88¢ §}: #9: 35 NETACP. SRE JNDDRIVER.MAR; 1 ° (36) 
rr ] ! aa ~SBTTL CANCEL_ALL - Cancel all outstanding 1/0 
44 ; CANCEL_ALL = Run down all outstanding 1/0 
rr 1 13 : This routine is called to run down all 1/0 pending for the channel. 
443 1 1 : Inputs: 
443 1017; 
4435 1 8 3 R6 = DWB address 
228 1096 : output 
3 $: 
at nr 
: one 
4435 1 § 3 
7 } : : RO-R2 are destroyed. 
443 1 6 CANCEL_A ; Cancel all outstanding 1/0 
0178 8F 6B 2 ! *PUSHR #*M<R3,R4,R5,R6,RB8> ; Save regs 
0447 1 § : Abort all pending va er transmits which haven't yet been 
ace? + ? : queued to the datal 
58 240 9 447 1p § MOVAB DWBSQ ~USER. XMT(R6),R8 ; Get user transmit IRP Listhead 
461 neee : Z BSBB ABORT_IRPS™ 3 Drain it 
44D 1035 : Issue a cancel request to the datalink to abort any I/0 
44D + § 3 requests we have ‘back abort to the datalink. When the 
44D 1 ; § receive IRPs come back abor ge. we will return that status 
rts 1330 3 in the corresponding user IRP. 
58 00 44D 1940 MOVZBL M#CANSC_CANCEL,R8 ; Indicate ‘‘cancel"’, not ‘‘deassign’’ 
46 a 50 1041 MNEGW DWBSW_BLL_ CHAN(R6) ,R2 ; Set channel to datalink 
5 54 1 a: CLRL R 3 No ‘current IRP"’ 
50 8 A6 56 104 MOVL DWBSL_UCBO(R6) ,R ; Get address of ND‘s UCBO 
50 4 AO 5A 1044 MOVL UCBSL_VCB(RO), ag. : Get address of our VCB 
51 10 A0 5 1045 VCBSL_AQB 3; Get address of our AQB 
50 OC Al 6 eg MOVZWL AQBSL ACPPIDCRID RO : Get ACP process index 
54 00000000'GF 66 104 MOVL G°SCHSGL _PCBVEC .R4 ; Get address of Pee vector 
54 6440 $9 1 rt MOVL (R4)CROJUR Get PCB addre 
OC Al 60 AG 1 104 CMPL PCBSL _PIB(R4) -AQBSL AcpPiD(Ri). : $ Stitt” the same process? 
1 8 1050 BNEQ 20$ 3; If not, P it 
55 48 A6 78 1051 MOVL DWBSL_DLL_UCB(R6) ,R5 3; Get dotel ta ute addre 
7c (1 26 DSBINT UCB$B_FIPC(RS) 3; Change IPL go. datatink's level 
51 00ge cs b§ 1 2 MOVL UCBSt DDT (RS) Dat 3 Get datalink 
C 61 1054 JSB @DDTSC_CANCEL(R1) > Call eer tnae cabal entry point 
1055 ENBINT 3; Restore IPL 
0178 8F 1 28 208: POPR #*M<R3,R4,R5,R6,RB> ; Restore regs 
4 ! RSB 3; Done 
93 1 35 ABORT_IRPS: 
53 008 9 1060 REMQUE (RB) ,R3 3; Get IRP 
1 97 1061 % : If VS then none 
08 8 8F 99 1 66 MOVZWL #SS$ Cancel - ; Setup 1/0 status and 0 transfer size 
A 9D 106 IRPSC_IOST1(R3) 
55 f A oF 1 rf MOVL IRP$L_UCB(R3) ,R5 3; Get UCB address 
00000000 ' GF A3 1065 JSB G*COMSPOST ; Another packet for the heap 
E8 AY 1066 BRB ABORT_IRPS 3; Loop 


n 9 
CANCELTALEN™ Foneel all outstanding 1/0 'Sceep-1obe Heito:a5 FARNES Sacco VO4700 op. Page 78, 
0S O4AB 1067 30$: SB ; Done 
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10$:  MOVL (R6),R6 


90$: POPR 
BI 
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r 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page 29 
circuit has gone away aed 7 37 3 ENETACP. SREINDDRIVER MAR: 1 ° 3) 
-SBTTL DLESLPD_DOWN - The circuit has gone away 
DLESLPD_DOWN = Handle ‘'LPD down'’ notification from NETACP 
This routine is called by NETACP when the LPD becomes unusable for reasons 
beyon our control. We must locate all DLE users associated with this 
circuit, and cause the DLE sessions to be terminated. 
Inputs: 
IPL = 0 
R5 = ony DLE UCB address 
R8 = LPD ID 
RO = Status code 
Outputs: 
None 
RO-R1 is destroyed. 


ESLPD_DOWN: : 
DSBINT UCBSB_FIPL(RS) 
HR #*M<R6,R7> 


UCBS$L_ODB(RS) ,RO 
DDBS$L-UCB(RO) 


MOVL RO 
MOVAB UCBSO_DWB_LIST (RO) .R7 
R7 RO 


Synchronize 

Save registers 

Get DLE DDB address 

Get DLE UCBO address 
Get address of listhead 
Setup for + 

Skip » gest WB 


CMPL = R6_ RP End of List 

BEQL 0 If so, exit 

CMPW DWBSW_PATH(R6) ,R8B Does the circuit ID match? 
BNEQ 10$ If not, keep looking 


: Clear RUN flag, so that no further 1/0 is allowed on channel 


BBCC  § #DWBSV_RUN,DWBSW_FLAGS(R6),10$ ; Clear RUN flag 
5 if not in RUN state, don't do cancel 


; Cancel all outstanding 1/0 operations to datalink 


BSBW © CANCEL_ALL ; Cancel all 1/0 
BRB 10$ : Keep looping 


#*M<R6,R7> 3; Restore testoters 
‘3 NT ; Restore IP 


B 10 


NDDRIVER - DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page 30 NI 
yo 008 DLESEAT RCH - FDOT for IO$_READxBLK reque ety 7 83:79:38 UNETACE.. SREINDDRIVER.MARS 1 . (18) vi 
Ef 1118 -SBTTL DLESFDT_RCV - FDT for I0$_READxBLK requests 
f 1 y ; DLESFDT_RCV = FDOT routine for read requests 
7? 1} § ; This routine prepares an IRP to be used to receive a message. 
1124 ; The NOW modifier is allowed so the user can request immediate | 
1 5 ; notification if there are no messages pending. 
11 : 3; Inputs: 
1128 ; 
1129 ; R5 = UCB address 
1150 ; R4 = PCB address 
1 1 3 R3 = IRP address 
04 11 : ; Outputs: 
OwE7? 1134 ; 
04E7 1135 ; None 
04E7 1138 ;- 
Q4E7 1137 DLESFDT_RCV: 
04E7 1138 
04E7 1139 3 If the P5 buffer is specified, then it must point to a 14 byte 
04E7 1140 3; user writable buffer into which will be stored the NI datalink 
td 1334 3 header when the receive completes. 
57 10 AC DO Q4E7 1143 MOVL P5S(AP) ,R7 : Get address of buffer 
29 «13 «O4EB 61144 BEQL $ Skip if not specified 
QO4ED 1145 IFNOWRT #DIAG_C per pee (R7), 708 : 3 irrep if buffer not writable 
07 €0 O4F3 1146 BBS ficee GBUF : If diagnostic buffer already given, 
1E 2A A3 O4F5 1147 uw STSCRS), 1208 : then skip i 
51 1A 9A O4F8 1148 MOVZBL ny Ae C_LENGTH,R1 3; Get size of diagnostics buffer 
O3CB 30 O4FB 1149 BSBW PDIAG-C LENGTICR ; Allocate buffer 
2150 €9 O4FE 1150 BLBC RO,80$ ; Branch if error detected 
4C AS 52 DO 0501 1151 MOVL R2, IRP$L_DIAGBUF (R3) : Save address of buffer 
08 A251 BO 0505 1136 MOVW R1,DIAG_0 E(R2) 3; Set length of structure 
Oc A2 9E 0509 115 MOVAB DIAG_G_BATA(R2),- ; Set address of data portion 
$6 QO50C 1154 DIAG_L_DATA(R2) 
04 A2 57 00 050D 1155 MOVL  R7,DTAG_L_USERBUF(R2) ; Set address of user buffer 
0511 1138 SETBIT #IRP$V_BIAGBUF,- ; Mark diagnostics buffer present 
0511 +115 IRP$W_STS(R3) 
0516 1158 20$: : 
8218 1125 : Join common data buffer probing 
52 00000000'GF 9E& 0516 1161 MOVAB G*EXESREADCHKR,R2 3; Setup buffer probe action routine 
OF 11 0510 1166 BRB DLESFDT_RW ; Join common code 
S1F 116 
S1F 1164 3 
Bate 1182 ; Error paths 
50 OC 9A Be ie 1167 70$: MOVZBL S$*#SS$_ACCVIO,RO ; Assume access violation 
FBEB 31 522 1168 80$: BRW ABORTIO 
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v04-000 DLESFDT_XMT = FDOT for IO$_WRITExBLK requ "er3e “SEP eats 02:1 ‘33 ENETACP.. SREINDDRIVER.MAR: 1 . (19) 
03 5 1120 a -SBTTL DOLESFDT_XMT - FDT for I0$_WRITExBLK requests 
2 : a : DLESFDT_XMT = FDT routine for write requests 
03 ; Vee : This routine prepares an IRP to be used to write a message. 
525 117 ; Inputs: 
82 5 1199 : 
0525 1108 3 : RS = UCB address 
0525 1179 ; R4 = PCB address 
0525 1180 : R3 = IRP address 
8 é 1181 ; 
5 11 g : ; Outputs: 
0525 1183; 
0525 1184 : None 
0525 1185 ;- 
0525 1186 OLESFDT_XMT: 
52 Q0000000'GF 9E& 0525 1187 MOVAB G“*EXESW 0 tea R2 ; Setup buffer probe action routine 
00 11 O52C 1188 BRB DLESFDT_ 3; Join common code 


c- 


————— 7 
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3 -SBTTL DLESFDOT_RW - DLE FDT Read/Write processing 
DLESFDT_RW - Complete FDT Read/Write buffered 1/0 
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Probe the buffer. Allocate a system buffer to receive 
or transmit the data and queue the IRP to the XwB. 


: Inputs: 

; R5 = UCB address 

: R4 = PCB address 

3 RS = IRP address 

: R2 = Address of buffer access check routine 
; PI(AP) = Address of user buffer 

3 bpd = Length of user buffer 

; P5(AP) = Address of 14-byte buffer to receive NI datalink header 
: Outputs 

; None 

6 


LESFDT_RW:: DLE Read/Write FDOT 


B4 CLRW IRP$W_BOFF (R3) No byte quota taken yet 


D4 CLRL IRP$L_SVAPTE(R3) Clear the buffer pointer 
7c CLRQ IRP$L_10ST1(R3) Clear I0SB image 
: Must only use the P1 and P2 parameters once. Else, a malicious 
3; user could DMA some bogus data to overlay the argument List 
; contents after wey have been verified to be oney via a probe. 
; Thus, copy P1 and P2 to registers and only use the registers from 
3 = now on. 
dO MOVL P1(AP),R10 ; Point to users’ data 
3¢ MOVZWL P2(AP),R11 ; Number of bytes 
: Test for user buffer accessiblity 
7D Mova = =s_- R10, RO : Setup user's buffer descriptor 
DD PUSHL R ; Save IRP address 
16 JSB (R2) : Is buffer accessible? 
3; ~ clobbers RO-R3, sets up IRPSW_BCNT 
8EDO POPL R3 ; Restore IRP address 
E9 BLBC RO,5$ 3: If LBC then access violation 
: Get the window block, and make sure the channel has been accessed. 
3C MOVZWL #SS$_FILNOTACC,RO 3; Assume not accessed yet 
0 MOVL JRPSC_VIND CR ),R6 ; Get DWB address 
1 BEQL $ 3 If EQL window is not valid 
E8 BLBS R6,5$ : If LBC window is not valid 
SETIPL #NETSC_IPL 3; Synchronize access to DWB 


MOVL = R11, R1 : Setup size of user's buffer 
BSBW DLE$FDT_BYTQUO 3; Consume byte quota needed. May wait 
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50 


Consume user's byte quota needed for buffer. Wait if necessary. | 
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ret DLESFDT RU - DLE FDT Read/Write processi aeons 1 04:70: 38 ENETACP. SREINDDRIVER.MAR: 1 ° (38) 
62 1247 ; at IPLS_ASTDEL if needed, but always 
62 1 8 ; returns at NETSC_IPL. 
1750 +€9 62 124 BLBC RO,5$ : If LBC then return to abort 1/0 
565 1 20 SETIPL #IPLS$_ASTDEL : Lower IPL for call to EXESALLOCBUF 
68 1251 ; and to get at user memory to copy 
68 1 26 3; data if needed 
51 5B 004C gf Al 68 1 2 ADDW3 #CXBSC_OVERHEAD,R11,R1 ; Get total buffer size 
DD 26F 1254 PUSHL ; Save IRP address 
00000009'GF 16 05 1255 G*EXESALLOCBUF ; Allocate non-paged buffer -- will 
576 (1 2$ ; wait if needed and allowed by the 
576 125 3; processes resource wait mode setting 
23 ee 278 1 28 POPL R3 ; Restore IRP address 
03 50 3 579 1 BLBS RO,10$ ; If LBS then buffer was allocated 
0088 1 57C 1260 5$: BRw 106$ : Return with error in RO 
2c ad. 5 dO b2ze : e) 10$ MOVL R2,1RP$L_SVAPTE(R3) ; Store buffer address 
Hh ! é§ 3 Init the CxB 
3E ge 838 1265 PUSHR #*M<R1,R2,R3,R4,R5> ; Save critical regs destroyed by MOVC 
00 6€ 00 C 0585 1266 MOVCS (SP) ,#0,- ; Zero the CXB header 
62 0048 8F 0589 1267 #CXBSC_HEADER (R2) ; 
ef BA 058D 1268 POPR #°M<R1-R2,R3,R4,R5> ; Restore regs 
08 A 1 BO O58F 1269 MOVW =-R1, CXBSw_ $176 (RO) : Store size for deallocation 
OA A2 1B 90 0593 1270 MOVB  #DYNSC_CRB,CXBSB_TYPE(R2) ; Setup structure type 
62 48 A2 9E 0597 1271 MOVAB CXBSC_READER(R2);(R2) ; Store data area ptr in CXB 
04 A SA 0D beoe 1 Le MOVL R10,4¢R2) ; Store user buffer addr 
14 a2 53 DO O59F 127 MOVL  R3,CXBSL_IRP(R2) : Store IRP back-pointer 
01 €0 O5A3 1274 BBS #IRPSV_FONC,- : If BS then a RCV function 
OA 2A a3 055 1275 RP$W~STS(R3) 208 : 
5 DD OSA8 127 PUSH R ; Save IRP address 
00 B2 6A 5B 28 OSAA 127 MOVC R11, (R10) ,a(R2) ; Move user data 
53 8ED0 peat : 4 208 POPL R3 ; Restore IRP address 
5B2 1280 : Check DWB state. If still active, then continue. Else return 
28 ! 4 ; to abort the 1/0. 
828 1 Hf SETIPL #NETSC_IPL ; Synch access to the DwB 
50 OOAC BF 3C 0585 1284 MOVZWL #SS$_FILNOTACC,RO ; Assume wrong state 
€1 B20A 1 82 BB V_RUN,- : If connection not active, 
48 OE A6 5ac 1 § DWBSW_FLAGS(R6),100$ ; then return an error 
EO OSBF 128 BBS #IRPSY_FUNC,- ; If BS then RCV request 
09 2A A3 aC! 88 IRP$W~STS(R3) ,408 
até ! + : Finish IOS_WRITE processing 
28 B6 63 3 5¢4 1 3 INSQUE (R3),@DWBSQ_USER_XMT#+4(R6) ; Insert IRP onto queue : 
0087 ace 129 BSBW SE SAAT ASS ; Transmit the message, if possible 
11 3 : 92 BRB 6 3; Done 
$0 : 38 3 Finish IOS_READ processing 
55 14866 OF 5cd 1 38 40$: REMQUE $RYOSS_ACY_ASSCRG) AS ; Get waiting message (IRP) 
1D 0501 1 BVS $ : If VS then none 
02 3 D3 «1300 SBW RCV_DONE ; Complete user IRP (in R3) 
ae dé 1301 MOVL e 3 Set datalink receive IRP address 
FDIA 2D 1 : BSBW DEALLOC_MSG : Deallocate received message IRP/CXB 
19 «1 ms. 4 BRB 60$ 3; Take common exit 


<Zz 
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RIVER - DECnet DLE driver 16-SEP-1984 01:30: AX/VMS Macro V04-00 P 4 
V0e- 000 DLESFOT Rw - DLE FDT Read/Write processi ~$Fb= 1 38e $3399: 38 NETACP.SRCINDDRIVER.MAR; 1 ~ 36) 
DE 1304 50S: : 
DE 1305 : No received messages are pending for the user. If t 
DE 1 § ; modifier was specified, then return an indication chet no 
43 ! 5 ; messages are pending. 
06 €1 OSDE 1 Bc SVN - : If NOW modifier specified, 
07 20 R$ EO 1310 IRPSU-TUNC(R3) 55S sities cise 
0870 BF 3 —3 1311 MOV ZL Ht MENDOFFL ILE,RO ; Set error status 
1D 1 as : \¢ BRB 3; and ABORT the I/0 
SEA 1314 : Receive must wait for incoming data. Issue receive to datalink 
geA ! 1? ; on behalf of the user. 
20 B86 $3 9 SEA 1 i$ 55$: INSQUE E>} -Seueee USER_RCV+4(R6) ; Insert on wait queue 
01 ef 1 18 BSBW INIT _RCV_IRP : Initialize datalink receive IRP 
OF 50 SF 131 BLBC R 3 ou if error detected 
01 0 05F4 1320 BSBW =s-s I SSUE_DLL_RCV : Issue the receive to the datalink 
50 01 C OSF7 1321 60S: MOVZWL 3,358 geeeaks RO 3 Success 
SFA 1 § SETIPL S*#l Pus A EL 3; Restore IPL 
00000000'GF 17 44 } ? JMP G*EXE OTORE TURN ; Return to user with success 
O808 1358 ; 
8 : ; : An error has been detected. Abort the 1/0 request. 
603 1329 ° 
53 2086 OF 0603 1330 70$:  § REMQUE @DWBSQ_USER_RCV+4(R6).R3 ; Get the user IRP back 
set : 1 F) "Return INIT _RCV_IRP seutes to user 
55 1C A3 0 0607 1 j 100$: MOVL IRP$L_UCB(R3) ,R5 ; Restore UCB addres 
FBO2 1 0608 1334 BRW ABORTTO 3; Abort 1/0 with oteeue in RO 


<z 
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F -SBTTL DLESFOT_BYTQUO = Get Non-paged Pool Quota 

DLESFDT_BYTQUO = Get Non-paged Pool Quota 

; Take indicate ertee from JIB BYTCNT quota. Wait for them if necessary 
a 3 + The quota taken is subtracted form JIBSL_BYTCNT and moved 
i?) oe 2 


; IPL_is assumed to be NETSC_IPL and pox be lowered to IPL$_ASTDEL or 
; IPL$_SYNCH. May go into M@AIT at IPLS_ASTDEL, always return at NETSC_IPL. 


sy 
om 


vou 000" 


ocr 
pa 
mo 
oem 
al oe) 
<o 
—r 


os ts 2 a a a 2s bs 4 ts 2 ss 4 2 4s 2 2 ts — 4) ts ot tt om 


Inputs: 


= UCB address 
= PCB address 
= IRP address 
= Quota to take 


DwDwDwD 
Wu 


; Outputs: 
RO = Status code 
ALL other registers are preserved. 
LESFDT_BYTQUO: : 
PUSHL 


b 


OOQCCGCOCOCOGOOCOOOOOOOOOOOOOCSOO 1 + 


OOD F VLOOEF FN MMO OCOOW MD OWVLOOM MM MMMMMmMmMmMmMmmmmmmmmmmmmmmmmmmmemnrnern 


Get pn oe pool quota 


MEW 0 OONOA UE WN 0 OONOA UNE WP O ONO 


PAA BB PEPE EEE OE 


DPDAAEDPA AAA AAA AAA AAA AAA AA AAA AAAAAIAP ASIA IOASIOASASAS 18 


SSSSSSSSSSSC OCC B OOO ROR. os 


57 odd 2 3 Save registers 
57. 0080 C4 00 1 MOVL PCBSL_JIB(R4) ,R7 ; Get JIB 
20 A? ss 551~—C—ié«é#“@#?*T 1 10S: CMPL R1,JIBSL_BYTCNT(R7) ; Enough quota left ? 
¢| 1B 1 BLEQU 20 ; If LEQU then yes 
24 A7 1 D1 1 CMPL R1, JIBSL_BYTLM(R7) ; Is it worth waiting 
2a «1A—«(O061 BGTRU 30$ : If GTRU then waiting won't help 
OA €0 BBS #PCBSV_SSRWAIT,- ; If BS then wait mode disabled 
25 24 AG 68 PCBSL_STS(R4) ,30$ : 
50 01 00 ; MOVL S*#RSNS_ASTWAIT,RO ; Set resource to wait for 
71 SETIPL #IPLS_ASTDEL ; Set PSL for wait state 
7E OC 7 MOVPSL <-(SP) ; Save PSL for call to scheduler 
7 ASSUME IPL$_SYNCH LE NETSC_IPL 
74 SETIPL #IPLS_SYNCH ; Syncronize for call to SCHSRWAIT 
00900000'°GF 16 75 JSB G*SCHSRWAIT ; Wait for resource 
7 SETIPL #NETSC_IPL 3; Restore IPL 
09 «11 ° 4 RB 10$ ; Try again 
3 A7 , ¢ 6 79 208: SUBL R1,JIBSL_BYTCNT(R7) 3; Consume bytes 
a 2 oe 4 0 MOVW R1,1RP$W_BOFF (R3) 3; Save quota taken from JIB 
5 9} D 64 1 MOVL S*#SS$_NORMA RO : Indicate success 
7 8ED 4 ¢ 90$: POPL R7 ; Restore registers 
0 r ? RSB : Done 
50 2A14 BF 3C 064 5 308: MOVZWL #SS$_EXBYTLM,RO ; Setup error status 
FS 3611+ «(065 6 BRB 90$ 


< 


vou=000" 


oc 


OOF8 B&F 


or 
rr 
mo 
om 
xo 
23> 


oOo 
on 


30 
fF 
a0 
90 
oh 
60 
90 


dO 
B0 


“eo 
or 


AAO 


WOONONA POA AOAPAPIIMPIPIPIPINIPIPIPIPIPFITIFITIFIFIND EE 


1 
1 
1 
139 
139 
139 
139 
139 
6 139 
6 139 
6 139 
6 139 
14 
6 14 
6 14 
6 14 
652 14 
652 14 
652 14 
65 138 
656 14 
656 140 
656 14) 
Q65A 141 
065C 141 
5C 141 
65C 141 
65C 141 
396 141 
665 141 
66 141 
6A 141 
298 14 
0 14 
674 14 
78 14 
7D 14 
1 14 
686 14 
8 14 
A 14 
E 14 
} 14 
14 
696 14 
698 14 
98 14 
9D 14 
9D 14 
9D 14 
69D 14 
Al 144 
AS 144 
AB 144 
GAA 144 
6AC 144 


E dri 


PO OD NA NEW OOD NAN WIN OOD NA UNE WI O ODNOAUN EW O OONOAUE UP" O00 ye 


bL 


"DLESKMT -4SG 


; This routine is called whenever a new transmit IRP is placed on the 
; user transmit queue. 


; Inputs: 


—_— 
ow 
PW 


-SBTTL DLESXMT_MSG - Send mes 


- Send message over direct 


R6 = DWB address 


; Outputs: 


None = message is queued to datali 
RO-R2 are destroyed. 


ESXMT_MSG:: 


PUSHR #*M<R3,R4,R5,R6,R7> : 
: Get next user transmit to proc 
REMQUE @DWBSQ_USER_XMT(R6),R7 
BVS 19$ 


pa19B4 02:17:38 


ver Terese 
end message over direct-a 5-SEP 


AX/VMS Macro v04-00 
NETACP.SRCINDORIVER.MAR; 1 


sage over direct-accessed circuit 
“accessed circuit 


nk layer. 


Save registers 
ess, if any are pending. 


; Get next _— transmit request 
: Exit if no 


: Allocate and initialize an IRP to send to the datalink layer 


MOVZBL #IRPSC_LENGTH,R1 
ALONPGD_2 


BSBW  —DLESA ; 

BLBS_ sai ; 

INSQUE  ¢ (RP), DWBSQ_USER_XMT(R6) ; 

MOVL 08 *,3 

MOVE #DYNSC_IRP,IRPSB type cass: § 

MOVE #NETSC~IPL.IRP$B-RMOD(R3) 

MOVAB B*DLESRMT DONE. IRPSL_ PID(R 

MOVL R6,IRPSL_ASTPRM(R3) ~ : 

MOVL  0WBSL_OLC UCBCR 7 ; 
IRPSL_-UCBTR3) 

mOVw - $*# 108 WRITELBLK,~ ; 
IRP$W FUNC(R3) 

vB #31, 1RP B_PRI(R3) ; 

MNEGW DWBSW_DLL-CHAN(R6),- ~~ ; 
IRP$W~CHAR(R3) 

MOVL #§ DWBSG”REMNOD(R6),- : 
IRPSQ~STATION(RS) 

MOVW  DWBSGREMNOD+4(R6),- ~~; 


IRPSQ"~STATION+4 (R35 
; Attach the user's message to t 


MOVL RPSL SVAPTE CR?) R4 ; 
MOVL jf RP 0B R35 : 
MOVU Tab UBER ),- 

RPSW BCNT( RS) 
BBC #0wBS9_D ; 


DUBSu. FLAGSCRES 208 


; Set length of block to allocate 
Allocate/zero the IRP 
Branch if got it 
Put IRP back on the queue 
Exit without Btn anything 
Co y block address 
et block type 
* Set driver 
3) ; Set 1/0 post-processing routine 
Save DWB address in IRP 
Set address of datalink UCB 


; Set 1/0 function code 


Use lowest priority 
Set channel to datalink 


; Set remote NI address if datalink 


(no-op if datalink not a UNA) 


he datalink IRP 


Get CXB address 
Set IO0SB to buffer address 


: Copy Length of message 


Branch if datalink does direct xmits 


row 


— 


MVM OMOesroerOoCcoCCC CTC CCGTMAMMOANANAOAOAOOAAAAOOODYP PY Yy YP YP YP YP YP YP YP YP YP YP Pree WZ 


DLESKAT pe over direct-a ~$Eb=138e 8): i$: 3 ENE TACE.. P.S NOD Driver. MAR; 1 shige (33) 


N 
S 
AF 1645 ; E 
AF 1446 : The datalink does buffered transmits } 
AF 1448 Move = #@I RPS BUF IO, ; Assume datalink does buffered E 
144 LRPSu g8\ ; transmits E 
14 p mov ace theses ; set butfer address E 

1 {re 3; Clear 
A 16 ; BRB E 
6BC 14 ; F 
68¢ 1436 ; The datalink does direct transmits : 
gat 14 : 20s: ¢éLRW 1RPSu_ $TS(R3) ; Clear BUFIO flag G 
F 14 EXTZV #VASV=VPN,- ; Get virtual page number G 
6C1 14 g #VASS- gvPNe ine df at ¢ 
C4 14 MOVL G*MMGS So. éP R2 Get base of systen page table ¢ 
CB 1460 MOVAL  (R2)CER inst “Sikbrecass § Set PTE addre G 
DO 1461 BICW aecuesa’s Tees : Set byte offset swithin page ] 
res 1006 IRPS$W ABOFF LR 
4 1088 ; Enter the user's request onto the ‘transmit pending’ queue 
607 1996 30$: ELRL IRPS$L_SVAPTE(R7) k buffer no longer accessible ] 
ze 13g INSQUE (R7) ,@DWBSQ_XMT PND+4(RES 3 vg Ae on ‘‘transmit pending’’ queue : 
re} 1469 3 Queue the request to the datalink driver's altstart entry point 
6DE 1471 iNcB DWBSB_ ag be ; Increment cutstanding 1/0 count ] 
6E1 1406 MOVL IRPS$L-UCB(R fi? ; Setup datalink UCB address I 
6E5 147 JSB G-EXESALTOU 3; Queue the packet to the datalink I 
6EB 1474 90S: POPR #°M<R3,R4, NS PRO. R7> ; Restore registers I 
6EF 1475 RSB i 
I 
I 
I 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
| 
] 
] 


| 
] 
| 
] 
| 
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Transmit 1/0 post-process $78 oats 7 93:79: 38 ENETACE.. SREINDDRIVER.MAR: 1 . 3) 
-SBTTL DLESXMT_DONE - Transmit 1/0 post-processing 

; DLESXMT_DONE - Transmit 1/0 post-processing 
; This routine is called by IOPOST when a prevent request is cong leted. 
This is because the address of this routine was put into the IRP PID 
field before issuing the transmit. The action here is to complete the 
user request, and deallocate the datalink IRP and buffer. 
Inputs: 

RS = IRP address 

IPL = IPL$_POST (4) 


4 
Pt 
‘a 


ses 


or 
2 
mo 
POTTY 
xO 
zs 
a 


ee ed a ed a a tt ns ss a 2 5 2 2 2 ss 2 2 a nen 


Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


VIA AAOMAOAOMDAOOCQKKOOOCOOOOOOOOOOOOoOO VY 


Fae ll =) =) | = bas bs ns bs Bt ns bn a Bn Pa na a na na nc a na na Pn na Bn Bn Ba na ns a na a 


Outputs: 
None 
DLESXMT_DONE: : 
DSBINT #NETSC_IPL ; Raise to driver IPL 
56 PUSHL ; Save registers 
50 24 a5 00 MOVL IRPSL_10SB(R5) ,RO ; Get CXB address 
: Locate user's original transmit IRP, and copy the completion 
3 status to it. 
51 14 Ag DO MOVL  CXBSL_IRP(RO),R1 : Get user IRP address 
38 ASO MOVL IRP$L~I0ST1(R5),- : Copy 1/0 status and xfer size 
38 Al IRP$L_IOST1(R1) g 
: Deallocate the CXB attached to the datalink IRP 
00000000 * GF 16 08 : jsB G*COMSDRVDEALMEM ; Deallocate the CXB 
08 ' + Deallocate the datalink IRP 
50 00 Oe 1 MOVL R5,R0 3; Set address of datalink IRP 
00000000'GF 16 E JSB G*COMSDRVDEALMEM : Deallocate the datalink IRP 
! : Make sure user transmits are completed in order, as a sanity check. 
5 18 1 MOVL IRPSL_WIND(R1) ,.R6 Get associated 


; DwB 
CMPL R1 ,OWB$Q_XMT_PND(R6) 3; Is this the first IRP in the List ? 
EQL ; If_EQL then yes 
BUG_CHECK NETNOSTATE,FATAL ; DLE transmit completed out of order 


U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
Vv 
Vv 
Vv 
Vv 
Vv 
Vv 
Vv 


° 
° 
SOOSSSSOSSSSSOSSSSOSSSSSSSSSSI9DOOSOOOOSIHHOOIIHIOOIIIOIOI9D. 
INIA AAAARAAAA AA AAA AAAGAAM 


WRI OOD NANE WIN SO ODNA UE WIN OOD NAME WIN 9 OD NOU EWI O OONO UE" OOO 


714 
714 
714 
Hi 
71C 
71 
7 108: 3 
7 : Remove the user's IRP from the ‘transmit pending’’ queue, 
4 3; and complete it. 
53 61 OF 07 REMQUE (R1),R3 ; Remove IRP 
55 1C AS 00 07 MOVL IRPSL_UCB(R3) ,R5 ; Get corresponding UCB address 
00000000'°GF 16 , ; JSB G*COMSPOST ; Complete the user's 1/0 request 

, i : Decrement the count of the number of outstanding datalink 1/0s 

47 A6 «097 «=(072F bEcB DWBSB_IRPCNT (RS) ; Decrement outstanding 1/0 refcnt 
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uz 


7 1534 3 
7 1535 3 If the DWB has become inactive, and was waiting for this 
4 } § ; i to complete before doing so, then do not issue any further 
732 1 : ‘ 
EO 07 1 : bes #0WBSV_RUN,- ; If DWB no longer active, P 
OS OE A6 734 1540 DWBSW_FLAGS(R6) ,20$ 
a 30 0737 1541 BSBW DEALLOC owe 3 then try to deallocate DwB 
3 11 O73A 1 tg GRE $ 3; and exit without any more 1/0 
73C 15435 208 ; $ 
re Te 
FFI3) 30 O75C 1 rt} 6sBw DLESXMT_MSG ; Transmit user message, if possible 
56 BEDO O73F 1547 50S: POPL R6 3; Restore registers 
re 1548 ENBINT ; Restore IOPOST IPL 
05 0745 1549 RSB 3; Done 


O44 — POUVYMVY UO} 10 


=z — tt -B 88888 


; Transmit another user message, if there is one waiting 


L 10 
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YORn 05 INT TORE IAP - Initialize datalink recei mie} 93:79:38 NETACP.SRCINDDRIVER.MAR; 1 . (24) 
te ! a -SBTTL INIT_RCV_IRP - Initialize datalink receive IRP 
o ! ? ¢ INIT_RCV_IRP = Initialize datalink receive IRP 
746 1555 ; This routine is called to allocate and initialize a new read request IRP 
746 «1 § 3 to the datalink driver. 
ete 1888 input 
; Inputs: 
746 «1 § ; 
746 «1 $9 3 R6 = DWB address 
ste \8€2 ¢ output 
; Outputs: 
746 «1 6 3 
746 1564; RO = Status code 
746 «1565 ; R3 = IRP address 
746 «1 96 3 
746 1567; R1 is destroyed. 
746 1308 :- 
746 136 INIT_RCV_IRP:: 
52. OD ie 139 PUSHL R2 ; Save registers 
oe 1376 3; Allocate and initialize an IRP to send to the datalink layer 
51 C4 BF 9A 0748 157% MOVZBL #IRPSC_LENGTH,R1 : Set Length of block to allocate 
0169 30 O74C 1575 BSBW DLESALONPGD_Z ; Allocate/zero the IRP 
3xC 28 E9 O74F 1376 BLBC R 24 3; Exit if no memory 
3 5 dO Pee 157 MOVL R2,R : Copy block address 
OA AS OA 30 0755 1578 MOVE #DYNSC_IRP,IRPSB_TYPE(R3) ; Set block type 
0B AS «6089: B38 130) MOVB #NETSC_IPL,IRPSB eyiti} ; Set driver IPL 
Oc A3 00000800" F 9 750 1580 MOVAB DLESRCU_MSG,IRPSC_PID(R3) : Set 1/0 post-processing routine 
114A 6 OD 76 1581 MOVL R6,1RPSC ASTPRM(R3) ; Save DWB address in IRP 
1 60 0769 1 ¢ MOVW S*#10$_READL LK,~- 3; Set 1/0 function code 
20 ay 76B 1 IRPS$SW_FUNC(R3) 
0 BO 076D 1584 MOVW #IRPSA_FUNC!IRPSM_BUFIO,- ; Setup STS for buffered reads 
2A AS i6f 13 5 IRP$W_STS(R3) 
771 «+15 $ ; Setup diagnostics buffer and attach it to the receive IRP 
771 «15 3 3 $o that we can get back the NI datalink header to return 
771 «+15 3 to the DLE user, if desired. Rather than allocate another 
771 +1590 3 block from pool, we re-use the end of the IRP as a diagnostics 
aa 133 3; buffer. 
15 0E A6 «03 «61 «(0771 «1 38 Cc #0WBSV_BC ,DWBSW_FLAGS(R6),20$ ; Skip if not an NI 
ore 1594 ASSUME IRP$C_CENGTH=IRPSC STDLEN GE DIAG_C_LENGTH 
50 5C Ad 9E 0776 1595 VAB =IRPSC-STDLEN(R3) ,RO ; Get address of diagnostics buffer 
1A BO O77A 1 38 VW #DIAG C_LENGTH,=- 3; Set size of diagnostics buffer 
08 Ag 77¢ «(159 1AG_@_SIZE(ROS 
OC A 9€ O77E 1 38 MOVAB 1AG_G_DATA(RO) ,- ; Make pointer to data area 
$9 781 159 }AS L-DATA(RO) 
4C a3 0 00 07 ¢ 16 9 MOVL IRPSL_DIAGBUF (R3) 3 Set address of diagnestics buffer 
, 6 16 SETBIT IRPSV DIAG UF. : Indicate diagnostics buffer present 
50 91 9A 07 16 5 20s: MOVZBL $*#SSS_NORMAL ,RO ; Success 
2 bEp0 7 ‘ 19 4 90$: POPL 2 ; Restore registers 
0 7 1605 RSB 3: Exit with status 
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Von O06 ISSUE_DLL_RCV = Issue datalink receive r ety 83:79:35 ENETACP. SREINDDRIVER.MAR: 1 . (25) 
9 18 7 ; -SBTTL ISSUE_DLL_RCV = Issue datalink receive request ; 
a | : 3 ISSUE_DLL_RCV = Re-Issue receive request to datalink layer ; 
7 1 19 ; This Foyt tne is called to re-issue a read request to the datalink driver : 
? 1 \§ 3 to obtain more incoming DLE messages. An IRP is passed to this routine ; 
7 1615 ; which is assumed to have a ready een setup as a datalink receive IIRP. ‘ 
? 1614 ; A CXB buffer ney optionally still be attached to the IRP - if so, it will : 
e 1818 3; be re-used by the datalink driver. : 
a : 4 ; Inputs: : 
7 1818 : Rg = DWB address 3 
a 1 Y 3 RS = IRP address to be re-cycled : 
£9¢ 16¢¢ ; Outputs: 3 
a 1 : ; RO = Status code ‘ 
143 1 § : Nc registers are destroyed. . 
079 16 3 [SSUE_DLL_RCV:: ; 
55 oD oe 19 ; POSHL R5 ; Save registers : 
eh 1631 : Reset the UCB/CHAN pair each time we send an IRP to the datalink : 
0794 16 § 3 because it is possible that the UCB address might have chonged d 
794 16 3 since the Last receive if the user did a UNA LIMITED SETMOD 3 
a 9 1638 ; which causes a different UCB to be used than the original. : 
$8 ‘ dO O87 1636 MOVL tr nett at pense ye ; Set address of datalink UCB : 
4C A6 =AE «(0799 1638 MNEGW DWBSWIDLL CHAN(R6) ,- ; Set channel to datalink 3 
28 A 79C 16 IRPSW~ CHAN(R3) $ 
01 €1 O79E 1640 BBC #0WBS0_DLL_RBF,- : Branch if receiver uses direct 1/0 3 
08 OE A6 Q7AQ 1641 DWBSW_FLAGS (ROS ,20$ ; 
BrA 1848 : The datalink does buffered receives ; 
32 AS) «6SFFF 8F- = =sBO BoA 1645 Mov #*X<3FFF>,IRPSW_BCNT(R3) ; Accept infinite size messages ; 
4—E 11 14 1966 BRB 30$ : 
07AB 1968 : The datalink does direct 1/0 receives. Allocate a CXB for the : 
se ! $3 3; DMA receive, and attach it to the IRP. : 
52 24 A3 09 7AB 1833 20$: MOVL {pest .1OSB(RS) Re : Is there a buffer already allocated? ; 
as 7AF 1636 BNEQ 5$ 3; Branch so 3 
51 084C 8F 3C¢ re 193? MOVZWL tae OyEnngsor- ; Compute total buffer size : 
0110 30 0786 1655 BSBW = DLESALONONPAGED ; Allocate nonpaged buffer ; 
4D E9 078 1936 BLBC " : Branch if error detected : 
% ge 7BC 165 PUSHR #*M<R1,R2,R3,R4,R5> ; Save critical regs destroyed by MOVC F 
00 6 C 078 1938 MOVCS (SP) ,#0,- : Zero the CXB header i 
62 0048 8F 7C2 165 #CKBS HEADER (R2) : : 
; BA Q7C 1969 POPR #AM<R1-R2,R3,R4 ROD ; Restore regs ; 
08 A 80 768 1661 MOV -R1, CxBSw_ $1 7E (RO) * Store size for deallocation i 
OA A 1 7C 1606 MOVB #DYNSC_CXB CKBSB_TYPE(R2) ; Setup structure type | 
62 48 A2 9E 0700 1663 258 MOVAB CXBSC_READER(R2)7(R2) ; Store data area ptr in CXB : 


DRIVER = DECnet DLE drive -SEP-1984 01:30: AX/VMS Macro V04-00 Page 4 
a tt ISSUE_DLL_RCV - Issue datalink receive r 5-SEP-1 1382 93:79:38 YNETACR. SRCINDDRIVER.MAR; 1 . (25) 
2403 5 d 704 1664 MOVL RPS$L_10SB(R3) ; Store cxe address in IRP 
2A A g? 708 1665 CLRW Thete Stel? $5 ; Clear BUFIO fla 
9 EF O7DB 1 § EXTZV -vPN.- Get virtual page number 
51 g¢ 7D 1 aVASS VPN, (R2),R1 
52 _Q0000000°GF 00 O7EO 1 8 MOVL att bets §pT Ly ASE ,R2 Get base of gyoten page table 
2c A 241 DE OQ7E 1 8 MOVA (R2)CR1J, IRPS$L_SVA APTECR3S ; Set PTE address 
62 FEOQO BF AB O7EC 1 p BICWS #*C<VASM BYTE>s(R2) ,= ; Set" byte offset within page 
A3 7F1 167 RPSW_BOFF (R35) 
08 : 8F B80 O7F 1676 MOVW #MAX_BIR_RCV,- : Set maximum receive size 
A3 tre 1673 IRPSQ_BCRT (RS) 
has 1873 3; Queue the request to the datalink driver 
47 AG =—96s«O7 FD 1899 30$ NCB DWBSB_IRPCNT(R6) ; Increment outerending 1/0 count 
55 1¢ A300 4a 1678 MOVL IRP$L_UCB(R3) .R5 ; Get datalink UCB address 
00000000'GF 16 0800 1679 JSB G*EXESALTQUEPKT ; Queue request to datalink driver 
50 01 00 Bane 1939 MOVL S*#SS$_NORMAL ,RO : Success 
55 BEDO 0809 1681 90$ POPL R5 ; Restore registers 
05 O080C 1682 RSB 


sss 
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a -SBTTL DLESRCV_MSG - Receive a message from datalink 
DLESRCV_MSG = Receive a message from the datalink layer 


wOOR ER 
v04-000 


“no 


co 
a 
mo 
am 
zo 
arr 


OOOCOCOOOOOCOCOOOCOCOCOOO OOOO OOOCOOOOO OOOO OOOOCOOOOOOOOOOOOOOOOOOO |s 


Inputs: 
RS = IRP address 
IPL = IPL$_POST (4) 


b 


Outputs: 
None 
LESRCV_MSG: : 3; Receive message from datalink 
DSBINT #NETSC_IPL ; Raise to driver IPL 
56 =—s«OD PUSHL R6 3; Save registers 
56 14 A5 00 MOVL IRPSL_ASTPRM(RS) ,R6 ; Get DWB address 
47 A697 DECB DWBS$B_IRPCNT(R6) ; Decrement outstanding 1/0 refcnt 
: If the receive was mul tered 1/9. then save the address of the 
n 


; CXB allocated by the datal 


in a consistent spot for all types 
3 of datalinks. 


01 =€1 BBC #DWBSV_DLL_RBF ,- :; If buffered 1/0, 
05 OE A6 DWBSW_FLAGS(R6) ,5$ 
2c ASO MOVL —IRPSLZSVAPTE(R5SS,- ; Copy the CXB address to a 
24 A IRP$L~I0SB(R5) : 


5$: : 

: Dequeue the next user receive IRP, and a the message and 
: completion status to it. Then re-issue the read request to 
3; the datalink driver. 
REMQUE @DWBSQ_USER_RCV(R6) ,R3 
BVS 70$ 


a «| CE 86 OF Dequeue next user receive IRP 


CO CD C9 GD Cd OD Cd CD OD GD CD CD Cd C9 CD CD CO Od Cd Cd C9 Cd CD C9. CD CO COCO COCO COCDCOCDODOCDCOOCDODODCS =< @® 


PRESS FWWIWIWINIWIWIWIWIRIDININININIDNINININININININID 2 2 2 SS | "QO COOOOOCOOOOOOOO 1 + 
QQ NNN NS NSN NSS SSNS INA AAA AAO OOOOOrerarn 


WAWAIWAIGIPI FO OA SLL HS LOM MMMOO SPOAOOAAL SA MOOOOOOOMNIIVTVTVTVUVTCC0"0C0C0T0T"0U"O = 
i a a ee a a ee ee ee ee ee ee ee ee ee ee ee ee a ad ad od 
PAAAAAANAIAIGPIDMUDINININININIDNS 3 9 9 | MH QDOOCOOOCOCOOCOCOOOOOOOOOOOMMccoce 
DOONAN E WN OS ODONAUES WN 0 OODNOAUE WIN 0 OD NA UE WRN 0 OO NOU EWN OOONOUS 


consistent place in the IRP 
ee : If none, bugcheck = should be one 
3; for every datalink 1/0 
19 10 BSBB RCV_DONE ; Copy msg to user IRP and post it 
:  Deallocate the datalink IRP and message. 
51 55 00 MOvL = RS R1 : ; Set datalink receive IRP address 
FAC2 30 : BSBW DEALLOC_MSG ; Deallocate received message IRP/CXB 
8 : If the DWB has become inactive, and was usiting for this 
4 : 1/0 to complete before doing so, then try to cleanup DwWB. 
EO 08 BBs #0WBSV_RUN,=- ; If DWB no longer active, 
03 OE A6 8 DWBSW_FLAGS(R6) ,50$ 
FA82 30 08 BSBW DEALLOC_0wB 3 then try to deallocate DwB 
56 8ED0 50$: POPL R6 ; Restore teptsters 
ENBINT ; Restore IP 
05 RSB 
; We have just received an IRP from the datalink, but there is 
5 no user request pending. This should never happen, since for 
; every user request. a corresponding datalink request is made. 
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YOSeOON. RCV DONE nog Bate ot User Receive IRP Set 83:79:38 ENETACP. SREINDDRIVER.MAR: 1 coke, 
rt 1763 -SBTTL RCV_DONE - Complete User Receive IRP | 
f 1243 ; RCV_DONE = Complete user receive IRP | i 
47 1709 : This routine is called to transfer the pessoge from the datalink IRP : 
rtf 17t8 3; to the user's IRP, and to post the user's IRP. 
ay Hfgh | tues Feit 
4? 1752 ; RS = Datalink IRP 
47 1738 : RR = User IRP | 
; 47 1785 ; Outputs: 
age? 1732 : R3 = 0 to indicate user IRP is posted. 
0847 1759 : RO is destroyed. 
SBes 178 RCV_DONE: : Complete User receive IRP 
3E BBG 176 . PUSHR #*M<R1,R2,R3,R4,R5> ; Save regs i 
07 €1 0849 1583 BBC fa de als :; If diagnostics buffer present, 
_ O7 E1 Spee 1568 BBC pines DIAGBUF , - ; and diagnostics returned by datalink : 
12 2A AS 850 1766 IRPSW_STS(R5) ,5$ 
50 4C AS 00 bBs3 1767 MOVL IRPS$L_DIAGBUF (RS) .RO ; Get address of datalink diag buffer : 
51 4C AS DO 0857 1768 VL IRP$L_DIAGBUF (R3) ,R1 ; Get address of user diag buffer : 
28 BB 085B 1769 PUSHR M<R3,R5> ; Save registers : 
OE 28 085d 1770 VC #DIAG_C_NIHDRS17,~ ; Copy NI datalink header 
00 80 O85F 1771 @DIAG_L_DATA(RO) ,- i 
00 61 0861 177 @DIA DATA(R1) : 
28 BA 0863 1558 POPR #*M<R3,R5> ; Restore registers : 
38 AS DO 0865 1774 5$: MOVL 1RPSL_{OST1(RS) ,- : Copy 1/0 status and bytes xferred 
3A A 3¢ SBCA 1358 MOVZWL IRPS$L~10ST1+2(R5) ,RO : Get bytes received : 
32 a3 50 81 pase 1777 MPW gl RPSu_BCNT (RS) : Bigger, then user buffer? 
50 2 RS ie SB ne 1579 BOVUL IRP$W_BCNT(R3),RO : Use user buffer size i 
0838 8F 80 0878 1780 OVW o358 DATAovenyN.~ ; Setup error code 
32 Pd $5 B0 bBrE 1583 10$: MOVW AO TRPSU BCNT(R3) : Setup bytes to xfer to user buffer : 
3A AS 50 8B 0889 1788 MOVW RO, IRP$L_10ST1+2(R3) i -.-and in IOSB image as well 
10 i3 886 1784 BEQL * ; If EQL then no data to move i 
51 24685 00 0888 1785 MOVL @IRPS$L_1OSB(R5) ,R1 ; Point to datalink buffer's data area ; 
52. 2 1 MOVL a RPSL SVABTE (RS) .R2 : Point to user buffer's data area | 
62. ‘61 8 BB 5 6 5 $ MOVC3 RO (RIT, (R2) ; Move data 
53 O8 A DO 94 17 MOVL 8(SP),R ; Restore user IRP address 
: ih | AS dO 98 1589 20$: MOVL IRP$L_UCB(R3) ,R5 ; Get user's UCB address 
00000000'GF 16 6 9C 1790 JSB G*COmMSP ; Complete user 1/0 
BA Ae 1791 POPR #*M<R1,R2,R3,R4,R5> ; Restore regs 
D4 0 A4 1736 CLRL R3 : Indicate user IRP gone 
05 BA 179 RSB 3 Done | 
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anew unit (UCB) is added. 


; Save registers 
; Get address of Listhead 
; Initialize listhead 


; Restore registers 


E Gr iver 

Unit initialization 

1733 ; -SBTTL UNIT_INIT - Unit initialization 
1787 : UNIT_INIT = Unit initialization 

1735 : This routine is called by SYSGEN when 
} ; Inputs: 

; RS = UCB address 

: $8 : Outputs: 

0? : None 

09 : ALL registers are preserved. 
1811 UNIT_INIT: 

1 \¢ PUSHL RO 

131 MOVAB er ‘me ULIST(RS) ,RO 
1814 MOVL RO,(R 

1815 MOVAL (Rd)+, (RO) 

1816 POPL 

1817 RSB 
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2 = Allocate and zero from s 
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S 
S 
-SBTTL DLESALONPGD 4 


~SBTTL DLESALONONPAGED 


3++ 


DLESALONPGD 


Inputs: 


Outputs: 
RO = Status 


.ENABL LSB 
DLESALONPGD_2:: 

BSBB DLE SAL ONONPAGED 

BLBC ~—_- RO, 20 

PUSHR #*M<RO,R1_R2,R3 

movCcS #0,(SP5,#0,R1, (R2) 

POPR #*M<RO,R1,R2,R3,R4,R5> 

BRB 10$ 
DLESALONONPAGED: : 

PUSHR #*M<R1,R3> 

JSB G*EXESALONONPAGED 

POPR #*M<R1,R3> 

BLBS RO 

MOVZWL ‘ §$_INSFMEM,RO 


20% 
10$: MOVW R1,CXBSW_SIZE(R2) 


MOVB y - 
CXB$B_TYPE(R2) 
20$: RSB 
-DSABL LSB 


oat 


ALL other registers are preserved. 


R4,R5> 
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ocate and zero from Seip pool 
ocate from system poo 


Z - Allocate and zero system non-paged buffer 
DLESALONONPAGED = Allocate buffer from system non-paged pool 


A buffer is allocated from non-paged pool and its size field is set to 
the size requested. Its type field is set to DYNSC_CXB. 


R1 = Size of block to be allocated in bytes 


R2 = Address of block if successful, else zero 


; Allocate and zero non-paged buffer 
; Allocate the buffer 


f LBC then error 


; Save r 


egs 
Zero the entire buffer 


; Restore ty = } 
; Setup the type and size fields (again) 


Allocate non-paged memory 
Save regs 

Allocate memory 

Restore regs 

If LBS then success 

Return insufficient memory 
Zero the buffer pointer 
Take common exit 

Set size for deallocation 


Set tentative buffer yy 
Return with status in 
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Voe-008" DLESALON , ceo. D- <*Allocate from ake Pp "$28 Ep-| Be 8); i$: 3 NETACP. 8 SNDD Dal VER MAR: 1 Sa H, 


e8 1 5 

e3 1 : 

€8 1 g: Mark end of driver 
E ; 

E rt 

E DLESEND: : 

E END 
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ym table -SEP- si7s NETACP. N VER.MAR; 

Symbol tabl g SEP 1984 8} 3 35 t ETACP.SRCINDDRIVER.MAR; 1 . dy 
$$$ = R 02 DLESACCESS 1B4 RG : 
$SoP = DLE SALONONPAGED C9 RG ; 
ABISl_USERVA = DLESALONPGD_Z RG ; 
ABD$W_ COUNT = DLESCANCEL 442 RG : 
ABDSW_ TEXT = DLESCONTROL 428 RG ; 
ABORTTO pi rspeaccess RG ; 
T_IRPS 49 DLESEND ‘ RG : 
ACPSACCESSNET eeeeneee DLESFOT_ACCESS 6 RG : 
CPSC_STA_ = 4 DLESFDT_BYTQUO $05 RG ; 
CPSC_STA_H = 3 DLESFOT_CONTROL 419 RG ; 
ACPSC_STA_I = DLESFOT_DEACCESS 269 RG : 
ACPSC_STA_N = 1 DLESFDT-RCV 0 4E7 R F 
ACPSC_STA_R = ¢ DLESFOT_RW 5 5 RG . 
CPSC_STA S = 000000 DLESFDT_SETMODE 3 Ong RG : 
ACPSOEACCESS ereeeree § x 93 DLESFOT_XMT 0525 R ; 
ACPSMODIFY reereree 9 DLESLPD_DOWN 0 Bp anc RG 6 
AQBSL_ACPPID 0000000C DLESRCV_MSG 00 3908 RG : 
AT eereeeee § 6X 0¢ DLESSETAODE 44 6 RG ; 
BUGS_NETNOSTATE eeeereer x 0 DLESSTARTIO 00 bere RG : 
CANSC_CANCEL 0000000 DLESXMT_DONE Q00006FO RG 3 
CANCEC_ALL 000044 03 DLESXMT_MSG 0000652 RG ; 
CCBSL_O1 = 00000004 DPTSC_LENGTH = $44 5 3 
CNF$_ADVANCE = 00000000 DPTSC VERSION = 000 4 : 
CNFS_QUIT = 0000000 DPTSIRNITAB 0000038 02 : 
CNFS_TAKE_CURR = 0000000 DPTSREINITAB 000006D R 8s ; 
CNFS TAKE PREV = 00000001 DPTSTAB 644 496 0 § 
COMSORVDEALMEM aeeeeeee =X 8603 DWBSB_IRPCNT = 0000004 3 
COMSPOST gerereee x 03 DWBSB_SUBSTA = 44 : 
CRBSL_INTD = DWBSB_TYPE = QO000000A 3 
CXB$B_ TYPE = DWBSC_LENGTH = 00000050 . 
CXBSC"HEADER = DWBS$G_REMNOD z 90000049 ; 
CXBSC_OVERHEAD = DWBSL_DLL_UCB = 00000048 3 
CXBSL_IRP s WBSL_PID = ee a't ; 
CXBSW_LENGTH = BSL_UCB = 4444 8 : 
CXBSW_SIZE = DWBSQ_RCV_MSG = 00000014 : 
$L_DDT = DWBSQ_USER_RCV = 0000001C 3 
$L_UCB = WBSQ_USER_XMT = 00000024 3 
DDTS$L— CANCEL = DWBSQ-XMT_PN = 90000 ¢ : 
DTSL-FDT s DWBSV~BC = 000000 : 
EALLOC_OwB 9 DWBSV_DELETE = $ 4448) : 
DEALLOC-MSG 3 DWBSV-DLL_RBF = 0000 9 1 i 
EVSM_AQL = DWBSV_DLL_XBF = S 0 if : 
DEVSM_ IDV = DWBSV-RUN = 9 : 
DE VSM_MBX = DWBSW- CHAN 5 9 C i 
DEVSM_NET = DWBSW_DLL_ CHAN = 4C 3 
DEVSM_ODV = DWBSW"FLAGS = OE i 
DEVSM_SHR = 10 = 4E i 
DEVSV~DAT = “PATH = E i 
DEVSV_ MNT s DWBSW_REF CNT = ; 
DEVNOTMNT 03 DYNSC_BUF IO = ‘ 
DIAG_B_TYPE DYNSC_CRB = ° i 
DIAG_C_LENGTH DYNSC_CXB = B F 
DIAG_C_NIHDRSIZ = DYNSC_DDB = 9° i 
DIAG_G_DATA DYNSC_DPT = E i 
BAS Other ate = $3sssos ! 
DIAG Ww" SIZE DYNSC_UCB = 10 i 
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RCBSW _MCOUNT i 
Ste oem or 8 
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SCHSGL_PCBVEC eeeeenee x 
SCHSRWAIT eeereere YX 


OOM FL SOLOOE 


SSaSa 


Wi = Oe 
mano 


~ 
> 
~ 
@ 
o 
Hhunnnnnnnnnnnnnnnnnnnnnuan 


3s 


uC 
UCBSC~LENGTH 
UCB$C_ND_LENGTH 


UCBSV~ 
UCBSW~DEVBUF S12 
UCBSW"NEXT_ID 
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$m ower awcese sere con$ 


! Psect synopsis ! 


$oeee semen ewer occa} 


PSECT name Allocation PSECT No. Attributes 
ABS . ( 159°) 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
gaBs 5 ( :>) 01¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
OLOGUE ( 120.) ( ¢:} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$3319 ~pRIVER E8 ( 2280.) ( 35) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 


eww roe ner econ aw wecocowoe= + 


! Per formance indicators ! 


bawemnen: Seen arene ow eouenash 


Phase Page faults CPU Time Elapsed Time 
Initialization 35 90s 0:00.09 0:00:00.55 
gounene processing 1 :00: 1:06 0:07:01 -07 
syste! table sort 0: if 4. 9 : 8:25 
i eee 589 6; a 0:00:18-94 
ou H $ e : : e 
Psect synopsis suteut 4 8: : p- ‘ 8:00:00: 58 
Cross-reference output 9 0:00: 9 Bp 0: 00-80 
Assembler run totals 157 0:00:43.54 0:01:31. 


yarking set pers was 1359 pages. 
176288 bytes (335 pages) of virtual memory were used to buffer the intermediate cod 
re were 140 pages of symbol table space allocated to hold 2604 non-local and 80 focal symbols. 
18 2 source Lines were read in Pass 1, producing object records in Pass 2. 
pages of virtual memory were used to define 60 macros. 
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! ; Macro library statistics ! 


weer wer eee ewe eee em eee ene H $ 


Macro library name Macros defined 

_$255$0U. SHRLIBINMALIBRY.MLB; 1 8 

=f SDUAZ8: [SHRLIBJEVCDEF .MLB; 1 

- SOUA28: [NE TACP.OBJ oe rOed eas? 0 

“$255$DUA28: NETACP. JINE eT M8: 

+ SDUAZ8: LSYS aT 4t3, LIB.MLB; 3 
SDUA28: CSYSLIBISTARLET.ALB;2 1 

TOTALS (all Libraries) 5 


3019 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NODRIVER/OBJ=0BJ$:NDDRIVER MSRC$:NDDRIVER/UPDATE=(ENHS:NDDRIVER) +EXECMLS/LIB+L 1B$:NET/LIB+LIB$:NETORV/LIB+SHRLIBS:EVC 
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